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1.0 


Val 


1.2 


1.2.1 


1.2.2 


1.3 


1.4 


1.5 


GENERAL INFORMATION 


1s 
ATISTICS AND HA 
R Y ORMANCE EXERCISER 
SUCCESSFULLY, THAT 


SYSTEM REQUIREMENTS 


HARDWARE REQUIREMENTS 


SBC-11/21 PROCESSOR WITH 16K_OR MORE OF MEMORY 
CONSOLE DEVICE (LA350, LA36, VT50, ETC.) 


SOF TWARE REQUIREMENTS 


THIS DIAGNOSTIC IS DESIGNED 4° RUN WITH THE DIAGNOSTIC SUPERVISOR 


AS DESCRIBED IN PARAGRAPH 2.0. 


RELATED _DOCUMENTS AND STANDARDS 


XXDP+ SUPERVISOR/USERS MANUAL CHQUS 


DIAGNOSTIC HIERARCY PREREQUISITES 


ASSUMPTIONS 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO 


WORK PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, 
MEMORY, ETC., DO NOT FUNCTION PROPERLY. 


OUR DRIVES), IN SBC-11/21 PROCESSOR, MAINTAINS 
THAT K AND 


SEQ 5 


SEG 6 
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1.6 MEMORY MAP 


MEMORY LAYOUT ON 16K MACHINE - XXDP ENVIRONMENT 


ADDRESS 
teewecnennannnn nn wcoceee = 77777 
XXDP+ MONITOR 

‘ weeeeooeoe eeeweoeoecen= ‘ 72000 
i XXDP+ TTY 1/0 AREA ! 
Samepeeememenaece sa ecco 70000 
i DRS i 

5 1 

i ' 

i 
tocececeennnnnn weneneee=-+ 41000 
RXO2 PERFORMANCE ! 
EXERCISER 

‘ conan coccenneccencnnnnnnt 2000 
STACKS 
tecenennn= erccnnnennnnnnnt 400 

; VECTOR AREA 

ose maaan s aitiacaiineninnlinibiaiinintaneine’s 0 


IN A MACHINE WITH 7 MEMORY FREE SPACE WILL OCCUR BETWEEN 
THE DIAGNOSTIC AND THE DRS. 
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2.0 


2.1 


OPERATING INSTRUCTIONS 


THIS IS A REV A SUPERVISOR DIAGNOSTIC SPECIFIC TO SBC-11/21 PROCESSOR: 
TIONS, PLEASE SEE CHAPTER 5 OF XXDP+ OPERATOR'S MANUAL. THEY 

ARE NO LONGER INCLUDED IN THE DIAGNOSTIC LISTING BECAUSE IT IS 
DESIRED THAT A CHANGE IN THOSE INSTRUCTIONS NOT REQUIRE - 
ASSEMBLY OF ALL SUPERVISOR DIAGNOSTICS. 

HARDWARE QUESTIONS 

THE FOLLOWING SERIES OF QUESTIONS COMPRISE THE PARAMETERS 

NECESSARY TO IDENTIFY EACH FLOPPY DISK SUBSYSTEM. 


RX BUS ADR =- 
THIS PARAMETER DEFINES THE BASE BUS ADDRESS FOR THE FLOPPY 
DISK SUBSYSTEM. 


VECTOR ADR - 
THIS PARAMETER DEFINES THE INTERRUPT VECTOR ADDRESS FOR 
THE FLOPPY DISK SUBSYSTEM INTERFACE. 


DRIVE # - 
THIS PARAMETER DEFINES THE FLOPPY DISK SUBSYSTEM DRIVE 
NUMBER (0 = 1 


EXP WRD-TYPE - 
THIS PARAMETER IS TO BE USED FOR FUTURE EXPANSION. TYPE 
A CARRIAGE RETURN. 


SEG 7 


FOR OPERATING INSTRUC- 


SEQ & 
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2.2 SOFTWARE QUESTIONS 


EXERCISE @ 
ENTER # FROM TABLE SHOWN IN PARAGRAPH 6,3. 


DATA PATTERN # 
ENTER * FROM TABLE SHOWN IN PARAGRAPH 6.2. 


TRACK SEQUENCE @ = 
ENTER # FROM TABLE SHOWN IN PARAGRAPH 6.4. 


DEVICE oy THRESHOLD LEVEL 
THE DEVICE FATAL 

THIS THRESHOLD L 

WILL CAUSE A DEV 

IS SET. THE ‘EV 

TO BE RECLASSIFI 
BECOME A DEVICE 
ENS 


RUN TEST IN DOUBLE DENSITY - 
IF TEST IS_ IN WRONG DENSITY = OPERATOR WILL BE ASKED IF 
THE DISKETTE IS TO BE REFORMATTED. 


RUN TEST pe DELETED DATA MODE - 
IF ANSWERED YES, DELETED DATA MODE WILL BE DONE FIRST. 


ANY PROGRAM CONTROL FLAGS - 
IF ANSWERS ES THE FOLLOWING QUESTIONS WILL BE ASKED. 


RETRY ON ERROR. 0G SOFT + HARD ERRORS? 
IF RETRY IS NO THEN SOFT ERRORS 
Wit ALSO LOG AS HA “wah 


10 DATA ERRORS : CONTINUE? 
ATISTICAL TABLES BEFORE NEXT PASS? 


THRESHOLD LEVEL (DFTL) IS I 
VEL EQUALS TKE # OF HARD E 
GE -FATAL ERROR WHEN THE DR 
FLAG WILL ALSO CAUSE 10 SOF 
D-A'HARD ERROR, WHICH IF DFIL = 1 WILL 
ATAL ERROR. 
Y 


“ow 
4 


E 
I 
L 
E 
F 
T 


MODIFY ie AD 


MITS = 
ANSWE H 


THEN THE FOLLOWING WILL BE ASKED: 


OR ADR #? 
OR ADR #? 


zao 
——— © 


. 3 
S 


RXXX EXPANSION <CR> 
THIS WORD IS FOR FUTURE EXPANSION, ANSWER WITH A 
CARRIAGE RETURN. 


SEQ 9 
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3.0 


ERROR INFORMATION 


THIS PROGRAM HAS FOUR TYPES OF ERROR CLASSIFICATIONS; SYSTEM 
FATAL, DEVICE FATAL, HARD AND SOFT. 


SYSTEM FATAL ERRORS 


sisiee FATAL ma yy ARE USED TO INDICATE THAT AN ERROR WAS 
DETECTED BY THE DIAGNOSTIC SUPERVISOR IN RELATION TO LOADING/ 
CONTROLLING THE DIAGNOSTIC PROCESS. 

THE CONTENT OF EACH ERROR IS SUCH THAT IT SHOULD BE a - 

EX RY. EVER, THE MESSAGES UTILIZE SOME TERMS 

ARE SPECIFIC TO THE FLOPPY DISK SUBSYSTEM, AND MAY REQUIRE " SOME 


GETTING USE TO. 


DEVICE FATAL ERRORS 


DEVICE FATAL ERRORS ARE A RESULT OF: 


1. a A DEVICE FATAL beet pe LEVEL (°’DFTL*’). 
“DFTL'’ =1 WILL CAUSE 1 HARD ERROR TO BE CLASSIFIED | - A DEVICE 
FATAL ERROR. THIS LEVEL IS INITIALLY SET=1, BUT MAY BE 
MODIFIED BY THE OPERA TOR. 


2. AN ERROR THAT IS CONSIDERED FATAL TO THE DEVICE, BUT TESTING 
WILL CONTINUE. 


HARD ERRORS 


HARD ERRORS ARE A RESULT OF: 


1. TEN RETRIES OF A SOFT ERROR OR 
2. A NON-RECOVERABLE ERROR 


SOFT ERRORS 


SOFT ERRORS ARE MEDIA RELATED ERRORS AND IF RETRY ON ERROR IS 
SET WILL BE TRIED UP TO TEN TIMES THEN CLASSIFIED AS HARD ERRORS. 


IF RETRY ON ERROR IS NOT SET THE ERROR WILL BE LOGGED AS BOTH 
SOFT AND HARD ERRORS. 


USER DOCUMENTATION MACRO M1200 15=DEC-82 13:50 PAGE 9 


3.1 


3.2 


3.3 


3.4 


3.5 


WRITE ERROR 


A WRITE ERROR IS AN ERROR WHICH OCCURRED DURING EXECUTION OF A 
WRITE FUNCTION. 


READ ERROR 


A READ ERROR IS AN ERROR WHICH OCCURRED DURING EXECUTION OF A 
READ FUNCTION. 


CRC ERROR 


THIS ERROR IS DETECTED :" THE DRIVE DURING A READ OPERATION AND 
ALSO BY THE PROGRAM IF A DATA CHECK IS PERFORMED. 


NO CRC ERROR BuT DATA ERROR ° BAD CRC 


THE ABOVE TWO ERRORS ARE DETECTED WHEN THE PROGRAM IS 
VERIFYING THE DATA READ OFF THE DISKETTE AGAINST THE DATA THAT 
SHOULD HAVE BEEN READ. 


THE DATA PATTERNS WILL BE FORMATTED FOR DOUBLE DENSITY (SINGLE 
DENSITY) AS SHOWN. 


BYTE # 

0 <TRACK ADDRESS BITS 6 = Q> 

1 <SECTOR ADDRESS BITS 4 = 0> 

2 = 253 (125) CONTAIN SELECTED PATTERN. 

254(126) <THE SUM OF ALL BYTES 0 - 253(125)> 

255(127) <THE NEGATIVE OF 2 TIMES BYTE 254(126)> 
SEEK ERROR 
A SEEK ERROR CAN BE DETECTED VIA BYTE #0 IF A CRC, DATA, CHECKS 
ERROR HAS NOT OCCURRED. ALSO THE DRIVE MAY DETECT A SEEK ERROR IF 
THE DISKETTE HEADER 1S NOT RECOGNIZED OR COULD NOT BE FOUND. A 
PROGRAMMED RECALIBRATE 1S ISSUED TO TRY TO CORRECT EACH SEEK ERROR, 
IF SELECTED DURING PROGRAM DIALOG. 


SEQ 10 


USER DOCUMENTATION MACRO M1200 15=DEC-82 13:50 PAGE 10 sea 11 


3.6 CHECKSUM ERRGR 


THE PROGRAM WILL DETECT A CHECKSUM ERROR BY SUMMING ALL _ THE 
DATA READ FROM THE DISKETTE AND COMPARING THAT SUM WITH THE sae ck sun BYTES. 
A CHECKSUM ERROR RESULTS FROM AN INCORRECT TRANSFER OF DAT 
INTERNAL TO THE RXV211 RX21/RX02 SUBSYSTEM. 
3.7 ERROR NUMBERS 
ERROR - TYPE - ERR # 
SEEK - SOFT - 0 -3 
CRC - SOFT - 1-3 
CKSUM - HARD - #54 
DATA - SOFT - 3 -35 
DEL. DAT ATA UNE X ” HARD - e 7 
DEL. DATA MISSING - HARD - 38 
UNK ERR - HARD - #40 
FILL/EMPTY BUFFER - HARD - 4] 
READ - SOFT - 10-4 
WRITE - SOFT - 11-4 
ek we id NO DONE - HARD - 44 
DONE-BUT NO INTER - HARD - 45 
a att NO ERR BIT - HARD - 46 
ERR BIT SET - HARD - 47 
NO DONE ON INIT - SYS FATAL - 128 
NO DONE ON FUNCTION - DEV FATAL - 65 
NO DRIVE RDY - DEV FATAL - 66 
NG SIDE RDY - DEV FATAL - 67 
NO DONE AFTER RD STA - DEV FATAL - $8 
WRG DRV RESPOND - SYS FATAL - 1 
WRG SIDE RES - SYS FATAL - 134 
DISKETT WRG DEN - DEV FATAL - 73 
DENSITY ERR. 2 DEV FATAL = 7 
T.0. ON “‘TR’’ OR “‘DONE’’ = SYS FATAL - 139 
S7S_ ERR - SYS FATAL - 140 
INITIALIZE ERROR - DEV FATAL - eo 
ADDRESSING ERROR - SYS FATAL - 400 
NOTES: 1. Fy Pgs HAVE TWO ERROR NUMBERS 
LOW # = SOFT ERROR 
HIGH” # = HARD ERROR (RECLASSIFIED SOFT ERROR) 
2. If “EVL*’' FLAG IS SET HARD ERRORS MeL BE RE- 
CLASSIFIED DEVICE FATAL ERRORS, BUT THE ERROR 
NUMBER WILL REFLECT THE ORIGINAL HARD ERROR. 
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4.0 


5.0 


PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EAC 
OF ALL ACCUMULATE 


= 2 at 


DEVICE INFORMATION TABLES 


ST AC ae sianialbnibin von count jonidapiina 7 
Taeisbhinianciinne SEyRScoreiits iesniissivnsnaiidhahinibietinkinniliensieniinautentinatinmans 
RXES: |X! X ! KX! X INKMIWC !SIDIDRVIDRV!DEL!DSK!DEN!AC !INT!SID!CRC! 
sidioidas OO RE SE PR ls lll 
A AER SAE I EEE POR IRS a t+ 7 
ca GE Fo OE EE A RO I PM TEES BD, BS PT TB ni io nena 
Se dick sissigishialeeanees beremaitnniareanivlsie sian ceensdeeestinlietiotaiilemnarene i 


WORD 215 i14 : : 13: 12! 11! 10! 093 08! 07:06 19s 104 !03 io2 a 


wwe Se ee toe foe et me te Geen tows }teoetoos}ooes toeeetoce4ooetocea teocetoeote==! 
#1 ‘ "WORD COUNT : ERROR CODE : 
ccusesstaanbtmiabentibanabedditobn beanbnwebnanbacntens}vandnedtasaten= es i 
#2 : CURRENT TRACK ORV #1 : CURRENT TRACK DRIVE #0 
ween ete teoedoesw a pound gowepowot}ocea fooe tone }oeetsooe}ooentovaetocetecetoceteoca! 
a3! TARGET SECTOR : TARGET TRACK : 
we ewe ee tween toennrs town + fewesowe}oee foes toes toocetocefocet}ooot}ooeteeetocoteoe=! 
Be BAD er ones} VALID If '‘UNT'DVI'HD !DVO! xX ! xX ! XK ILCD! 


ERRC 150 iSEL'DEN'LD ‘DEN! ! ! !DEN! 


SEQ 12 


SEQ 13 
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5.2 DEVICE PROTOCOL 


RX02 FUNCTIONAL PROCESS 


- meanness oeen f+ wos ee mee ee eee = a pe awr anew ranma nnn wen wenn ewan nent e ewe eT eee eH ee ee +e 
i 4 1 i 
' FUNCTION ! 
' CODE BIT ' FUNCTION PROCEDURE (PROTOCOL) 
ies2t | ! 7 
+ Ss ay St <a te em ae siti nian he SP a> SS cH am we oe eatemieeitil ee a oe hee Ee ke a Gm WR 6 EE RE OS ek SE SD HO STE Ree Soe SS er eo ae eR Ee > 
{ 1 ! ! 
7 000 FILL BUFFER FUNCTION WORD --->TR--->WC--->TR--->BA--->DONE 
: 001 EMPTY BUFFER FUNCTION WORD --->TR--->W(--->TR--->BA--->DONE : 
010 : WRITE SECTOR FUNCTION WORD --->TR--->SA--->TR--->TA--->DONE ; 
011 READ SECTOR FUNCTION WORD --->TR--=>SA--->TR-=-->TA--->DONE 
100 SET DENSITY FUNCTION WORD --->TR--=>VW--=->DONE 
( 4101  ! READ MAINT. ' FUNCTION WORD --->DONE 
: | STATUS 
i 1410 i WRITE SECTOR ‘' FUNCTION WORD --->TR--->SA--->TR--->TA--->DONE | 
| WITH DELETED ! 
3 on A 3 
i 41411  § READ ERROR | FUNCTION WORD --->TR--->BA--->DONE 
3 Po ee 3 
+ seeeecac oes ; ee ewan wre her ee RE He SE ee Somenmrwonaeecenm ease nen wrontwene sew e = = + 

TR = WAIT FOR TR BIT 

DONE = WAIT FOR DONE BIT 

BA = BUS ADDRESS (OUTPUT TO RX) 

VW = VERIFICATION WORD (QUTPUT TO RX) 

wO = WORD COUNT (OUTPUT TO RX) 

SA = SECTOR ADDRESS (OUTPUT TO RX) 

TA = TRACK ADDRESS (OUTPUT TO RX) 


6.0 TEST SUMMARIES 


6.1 UNIT/DRIVE SELECTION 


UNIT AND DRIVE SELECTION 
P-TABLES DURING A START 


L BE ACCOMPLISHED BY MODIFYING HARDWARE 


IL 
DIALOG. 
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6.2 


6.3 


(*) 


(*#) 


DATA PATTERNS 


AVAILABLE DATA PATTERNS ARE SEL -6 Cr 
~— DURING START OR RESTART D 


NOUS UN—O } 


EXERCISE OPTIONS 


AVAILABLE EXERCISES ARE SELECTED BY MODIFY! 
DURING A START OR RESTART DIALOG. EXERCISES AVAILABLE AR 










0 = DEFAULT TO 7 
1 = WRITE ONLY 
é = WRITE/READ 
: WRITE /READ/DATA CHECK 
4 = READ/DATA CHECK ONL 
5 = READ ONLY (CRC CHECK) 
6 = WRITE/READ/DATA CHECK ON ALTERNATING DRIVES (2) 
7 = WRITE/READ/DATA CHECK +/READ/DATA CHECK (**) 
TEST 6 WRITES THEN READ CHECKS ANY SELECTED DATA PATTERN 
USING ANY TRACK SEQUENCE, BUT ONE TRA RACK A T A TIME. 
FIRST ON DRIVE O THEN DRIVE WHEN BOTH UNIES HAVE 
ACCESSED THAT TRACK, IT GOES BACK TO UNIT 0 FOR THE NEXT 
TRACK, ETC. 
F THE TRACK SEQUENCE TO 
E KS DOING WRITE/READ/DATA 
T ALL TRACKS ARE 
E PASS WILL USE THE 
INDICATED BEL 
T WRITTEN. THIS 
VERIF I A TRACK AFTER 
THE HEAD HAS BEEN MOVED AND BACK TO THAT 
TRACK. AT THE COMPLETION O E DELETED DATA 
BIT IN TEST CONDITIONS IS C AND THE NEXT PASS 
WILL BE RUN UNDER THIS NEW C 


<_~— 
<= 
Pa 


¥ THE of ge P-TABLE 


SEQ 14 
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6.4 


6.5 


6.6 


6.7 


7.0 


8.0 


SEQ 15 
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TRACK SEQUENCING 


TRACK SEQ UENCE OR TYPE aa Ra MOVEMENT MAY GE SELECTED BY 
yd LA Ay FTWAR TABLE OF THE DI AGNOSTIC SUPERVISOR. 
TRACK SEQ UENCES AVAILABLE PFOR SELECTION ARE: 
0 = DEFAULT TO 7 
1 = INCREMENT 0.D. UP TO I.D. 
¢ = DECREMENT I.D. DOWN TO O.D. 
= INCREMENT 0.0., THEN DECREMENT I[.D. 
4 = BOUNCE BETWEEN 0.D. AND I.D. 
5 = BOUNCE BETWEEN DECREASING 1.D. AND INCREASING O.D. 
6 = BOUNCE BETWEEN 0.D. AND DECREASING I.D. 
7 = RANDOM 
0.D. = OUTSIDE DIAMETER (TRACK) 
‘ 1.D. = INSIDE DIAMETER (TRACK) 


SECTOR/ TRACK ADDRESSING 


BE POSSIBLE TO TEST THE DtSReT ies Ay TRACK AND 

ADDRESS LIMITS OTHER THAN T NORMAL OUTER 
(OD) AND INNER DIAMETER sg TRACK ADDRESSES, AND/OR 

NIMUM (FIRST) AND MAXIMUM (LAST) SECTOR ADDRESS, BY 
I THE SOFTWARE P-TABLE DURING A START OR RESTART DIALOG. 


ALL TESTS WILL RUN AT DOUBLE DENSITY UNLESS SELECTED AS SINGLE 
DENSITY DURING A START OR RESTART DIALOG. 


PROGRAM CONTROL 


BEHAVIOR OF THE gh ee EXERCISOR MAYBE MODIFIED BY USE OF 
THE FOLLOWING PROGRAM CONTROLS: 


1. HALT ON ERROR PROVIDED BY SUPERVISOR 
¢- HALT AT END OF PASS aad bat BY SUPERVISOR 

- DON'T PRINT ERROR MESSAGE car voake BY SUPERVISOR 
¢° RETRY ON ERROR. E 


LOG cet ERRORS SOFTWARE P-T 


L 
RECALIBRATE ON SEER ERR SOFTWARE P-TABLE 


HISTORY FILE 


Cit soBd Se eeKt HAS 8 BEEN MODIFIED TO RUN IN SBC-11/21 PROCESSOR FROM 
CeTONG IN 


SEQ 16 
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7.1 


, 2 
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771 .TITLE PROGRAM HEADER AND TABLES 
ore .SBTTL PROGRAM HEADER 
808 .ENABL ABs AMA 
809 002000 : = 2006 
12 002000 BGNMOD 
81 
814 ;++ 
815 > THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
816 ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
818 ; 
819 002000 POINTER BGNRPT, BGNSW,BGNSFT ,.BGNAU,BGNDU, ERRTBL ,BGNSE TUP 
828 
is 002000 HEADER CNRXDAO,0,0,2100,1 
836 ow SO SO © OF & SH EH S&S SS BO HPO KN HO SST HP FTSH VWs Pewee Bec nH Eee weoeesVe sews Se Pee Be vwe ese er eweenrs 
837 002122 DESCRIPT “SRX02 SS PERF EXER $ 
838 .EVEN 
839 OSD OHO MBPeV SO MWS SS SSS SOHS OB Fe SHSeASBNseeBTeEsOsewenwteaarestwre seen ewe ewvewenreewen soe e eT ee Sees 
840 
841 .SBTTL DISPATCH TABLE 
ere ; ++ 
B44 > THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
B49 > IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
84 * 


7 
848 002152 DISPATCH 1 
849 


PROGRAM HEADER ANC TABLES 
DEFAULT HARDWARE P-TABLE 


859 

860 

861 

Bes 

86 

864 

865 

508 002156 

868 002160 177179 

869 002162 000264 

870 002164 000000 

871 002166 000000 

ue 

87 

879 002170 

880 

881 

882 

885 

884 

885 

886 

887 

888 

889 

890 

891 002170 

892 

893 002172 000000 

894 002174 000000 

895 002176 000000 
002200 000000 

897 002202 000000 
002204 000021 

899 002206 000000 
002210 000114 

901 002212 000001 

902 002214 


1 
912 002220 
914 002220 
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~SBTTL DEFAULT HARDWARE P-TABLE 


: THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
> THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
> IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 

BGNHW DFPTBL 

.WORD 177170 sUNIBUS ADDRESS 

. WORD 64 ‘VECTOR ADDRESS 

.WOR “DRIVE # 

WORD 0 sFUTURE EXPANSION 

ENDHW 


~SBTTL SOFTWARE P-TABLE 


34+ 
; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTBL 


RXXX: .WORD 0 sFUTURE EXPANSION-R:- 
“WORD 0 iPe TABLE CONTROL WOKD 
SIN: .WORD 0 TES 
TSTPAT: .WORD 0 {TEST PATTERN # 
TRKSEQ: .WORD & :TRACK SEQUENCE # 
FG: .wuRD 21 :SOFIWARE SWITCH KEG 
OTDITK: .WORD SOUTSIDE Dia. TRACK LIMIT 
TK: .WORD 114 SINSIDE DIA. Taact Lim. 
MINSEC: .wORD 1 “MINIMUM SECTOR LIMIT 
SEC: .WwOPD 32 :MAKIMUM SECTOR LIMIT 
“WORD 1 SDEVICE FATAL THRESHOLD LVL 
ENDSW 
ENDMOD 


SEQ 19 
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958 


975 
976 002220 
977 


388 002220 
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.SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


N MORE THAN ONE T 


EQUALS 
; BIT DIFINITIONS 
100000 
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mr Dene drew fmeve eee rg meu Hd br bed 


Gang Geen femren tenet foment Dene eng Saeed heen Grae We fem ee Gan feet fem, on beer hen Grane eee be et a hs ee 
tt at tt Ht tt tH tt 
O—MWwhEu 
a a i) 


OIE MNOS IDO 


mn 
<= 
mm 
mar 4 
oe 
Lf ae | 
=z 
"iT 


Wo 
Nm 


ee. pi hae ging hil eo8eeees MDWODWOVOVIO:: WOWVWVOOOVIOVVIOOWWIOO:::--- 
a | 


> PRIORITY LEVEL DEFINITIONS 
PRIO7== 340 


peAl EQUATES SECTION ro PROGRAM EQUATES THAT 


OR SUPERVISOR TO PROGRAM COMMUNICATION 


Phe aioe, 1 ietanen ee. STATUS WORD 
WAS ISSUED 
Fare on ISSUED 
TNUE ¢ WAS ISSUED 
ANE W PASS HAS OHAS BEEN STARTED 
AP OWER-PAIL /POWER-UP OCCURRED 





SEQ 20 


SEQ 21 
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GLOBAL AREAS 
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GLOBAL EQUATES SECTION 


1017 ; EF32:EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
1018 EF I6:EFO1 AVAILABLE FOR PROGRAM U 

1019 090040 EF START== 2, sSTART COMMAND WAS ISSUED. 
1020 0000 EF .RESTART== ¥ “RESTART COMMAND WAS ISSUED. 
1021 000036 EF.CONTINUE== 30. * CONTINUE D WAS ISSUED. 
10 ‘ 000035 EF .NEW== 9. “A NEW PASS HAS BEEN STARTED. 
10 ; 000034 EF .PWR== 8. "A POWER FAIL/POWER-UP OCCURRED 
1025 000020 EF 16s= 16. 

1026 000017 EFIS== 15. 

1027 000016 EFilg== 14, 

1028 000915 EFi3== 13, 

1029 000014 EFi2== 12, 

10 000013 EFli== 11. 

1031 000012 EF10== 10. 

1032 000011 EFO9== 9, 

103 000010 EF g== 8. 

1034 000007 EFO7== 

1035 000006 EF06== : 

1036 000005 EFOS== 

1037 000004 ere 4 

1038 000003 EFO3== 3 

1039 000002 EF O?== : 

1040 000001 EFOQ1== : 
1042 ‘PRIORITY LEVEL DEFINITIONS 

1043 . 

1044 000340 PRIO7== 34 

1045 000300 PR106== 

1046 000240 PRI05== 24 

1047 000200 PRI04== 

1048 000140 PRIO3== 14 

1049 000100 PRIO2== 100 

1050 000040 PRIOi== 40 

1051 000000 PR1I00== 0 

1035 =PROGRAM DEFINITIONS 

1055 000200 TRBIT==200 

1056 000040 DNBIT==40 

1057 004000 RX2B1T==BIT11 

1058 000003 SOF T==3 

1059 000002 D==2 

1060 000001 DVF T== 

1061 000000 YFT== 

Mo 4 000004 BIRP4==4 

106 000006 TRP6== 

1064 000002 RESTAR==BIT1 

1065 000001 OWERF ==BIT0 

1056 004000 SYSERR==BI1T11 


0 
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GLOBAL DATA SECTION 





1980 .SBTTL GLOBAL DATA SECTION 

One 344 

108 : THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 

1084 : IN MORE THAN ONE TEST. 

1085 3se° 

1086 

1087 : 

1088 : STORAGE FOR DEVICE REGISTERS 

133 

109@ 90 220 000000 UOADR: .WORD 0 sUNIT 0 ADR 

109 222 000000 UIADR: .WORD 0 “UNIT 1 ADR 

1094 00 é 4 000000 UOVECT: .WORD 0 SUNIT ‘ VECTOR 

1095 002226 000000 UIVECT: .WORD “UNIT 1 VECTOR 

1097 002230 000000 SDD: . WORD 0 :SYSTEM DRIVES DONE (SEE REG. DEF. BELOW) 
1098 002232 000000 SUT: . WORD :SYST EM UNDER TEST (SEE REG. DEF. BELOW) 
1099 002234 090000 UUT: .WORD 0 UNIT UNDER TEST (SEE REG. DEF. BELOW) 
1100 002236 000000 UUTADR: .WORD 0 :UUT Uh UNIBUS ADR 

1101 002240 000000 UUTOFF: .WORD 0 T TABLE ADDRESSING OFFSET 

1102 O02242 000000 DEN: .WORD 0 DENSITY FLA 

1103 002244 000000 DELDAT: .WORD 0 *DELETED DATA FLAG 

1104 002266 000000 CSRUUT: .WORD 0 SCONT/STATUS REG UUT 

1105 002250 000000 ESRUUT: . WORD = ERROR/STATUS _REG UUT 

1107 002252 000000 WDCNT: .WORD 0 

1108 002254 000000 TRACK: .WORD 0 

1109 002256 000000 SECTOR: .WORD 0 ECTOR ADR 

1110 002260 000000 TRKON: .WORD ‘TRACK DONE (UUT) FLAG 

1149 002262 000000 SECDN: .WORD 3SECTOR DONE (UUT) FLAG 

1113 002264 000000 LGDRS: .WORD 0 “DRS FLAGS 

1114 002266 000000 FLAGS: .WORD 0 DIAGNOSTIC FLAGS 

1115 002270 000000 ABORT: .WORD 0 

1116 002272 000000 PRTECD: .WORD 0 ‘PRINT ERR CODE FLAG 

1118 002274 000000 SY: .WORD 0 s ERROR SYSTER 

1 Bgeare $9988 Ati, Sou an con 

1121 092302 000000 HDERCT: .WORD 5 ;HARD ERROR COUNTER (USED FOR “DFTL) 
1134 002304 000000 RETRY: .WORD >/7 AO) DATART/ (4) RDRT/ (2)WTRT/ (1) SEEK/ SEE BELOW 
1124 002306 000000 SEEKRT: .WORD *SEEK RETRY COUNT 

1125 002310 000000 CKSMRT: .WORD *CHECK SUM RETRY COUNT 

1126 002312 000000 CRCBRT: .WORD 0 :CRC BAD RETRY 

1127 002314 000000 CRCERT: .WORD 0 “CRC ERR RETRY COUNT 

1128 002316 000000 DAT .WORD 0 SDATA RETRY COUNT 

11 902320 000000 DARDRT: .WORD 0 :DATA READ RETRY COUNT 

1130 002322 000000 DAWTRT: .WORD 0 “DATA WRITE RETRY COUNT 

1 BRSEEs 80888 en: ante ac ay ton 

1138 905350 dit DDERCT: .WORD 6 :D.D. ERR RETRY COUNT 


4 
GLOBAL AREAS MACRO M1200 15-DEC-82 13:50 PAGE 23 SEQ 2 
GLOBAL DATA SECTION 


7 ° em SG OP we Oe SE Oe ow OS = SG SP We @ @ Se SD SS & AO eee wreas se SDE eee ae neue @Seevwrnwaeanwzowrwnvnewe ese we ee = 


2 00 CMD: 0 : COMMAND FOR PRINT 
if 3 000009 UNIT: 1 ‘UNIT # FOR PRINT 
00 177777 uT00: <1 seen UUT CODE# TABLE * 
00 9 177777 uT01: = : >s! ORAGE OF USER UNIT a 
00 177777 uT10: <1 : FOR PRINT OUT, LOOKU 
002344 177777 UT11: =1 : ® STATISTICAL TABLE UeRINT 


tenes SOFTWARE REGISTER DEFINITIONS *#e0* 


ewemnwe} our gaa} ue wpeucrny> 


: 03: "Oe! 01: 00. 

: $DD: ! 11! 10! 01! 00! <= uuT CODES-EQUIV TO A BIT S ser IN THIS REG 
3 & actdnebuasbenabinee T 1S UUT=00 I SDD D BITsO SET 
: SUT: ! 171! 10! 01! O00! <= UUT cOEs- 


: Rx02 |____RKMM-FUTURE EXPANSION 
UUT: | 00 = UNIT#O/DRV#O =! SIDEMO/DRVAO 
(01 = UNIT#O/DRV#1 |  SIDEMO/DRVAI 
(10 = UNIT#I/DRV#O 8 =6 |= SIDE#1/DRVAO 
111 = UNIT#I/DRVe1 =} SIDE#1/DRVA1 
if 
iimmm<DRIVE # 
imee=<UNIT # (RXO2) OR SIDE # (RXXX) 


‘ ' 

1 15! 14! 13! 12! 11! 10! 093 08! 07! 06: 05! 04! 03 02! 01! 00: 

i wwe pawe prawn ban sk oe gy aaa on ge ert aman: emma ao ame mia ' 
IERR'ERR'DON'ITRIWRT! RDIFIL!'UNK! ! DD! DD! |! ! Ck! '! 

ERRTY: IBITINOT! NO! NO!ERR/ERR: EMP IER: - 'MIS!UNX! - {DAT SUM! CRC? SEK: 

psoassss|ssstesceseseses¢esstess¢sestssstesstesstesstssss sosésss¢ss4=== 

: ie fees: ee eee : DON: SID: DRV-NO DONE! FUNCTI - 

ZERRSY: 'UNR! TO!DEN!DEN!SYS!DA AG i woenen=!FUN'RDYIRDY!-------! CAUSING ! 

; 'ERRIERR! ERR ERRSERRS ERR! SID: DRV: @2‘ERR'ERR'FUN!INT! ERROR ! 


; ' — FCRC!DAT! RD'WRT!SEK! 
SRETRY: : : bes Wes Bes Ge: ad 


“NOTE : RXXX IS REFERENCE FOR FURTHER EXPANSION 


ee i ee eee 
NNN w Vin PELL KL 
BAPVHAARANASSSVSAPAVISSSVSAFLUNLSSSLSSLEALSESSS 


Co Co 
O— 


SEQ 25 
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1198 .SBTTL GLOBAL TEXT SECTION 
1200 :++ 

1201 * THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1202 * MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
120 : MORE THAN ONE TEST. 

1 04 32° 

1205 

1206 : 

1207 * NAMES OF DEVICES SUPPORTED BY PROGRAM 

1509 002346 ; DEVTYP <Rx02> 

18 

1217 : FORMAT STATEMENTS USED IN PRINT CALLS 

1219 . 

1226 

1227 


GLOBAL AREAS _ MACRO M1200 15-DEC-82 13:50 PAGE 27 SEQ 26 
GLOBAL ERROR REPORT SECTION 


1338 .SBTTL GLOBAL ERROR REPORT SECTION 
1239 : ++ 
1240 : THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
1241 : THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
1s0¢ : THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 
1244 f 
145 -SBITL = MOD U.SFT.ERR - ERROR REPORT 
1527 002354 012737 004506 002402 ERROR: MOV #NONE.ERRBLK SETUP ERROR BLOCK CODE 
1248 009362 Eee ipER TR NOS O%4 MOV UNIT, LSLUN ‘SETUP LUN FOR PRINT 
1249 002370 ERROR : 
1250 002372 000207 RETURN : 
1252 002374 : ERRTBL 
002374 000000 ERRTYP:: WOR 0 
002376 000000 ERRNBR: : -WORD 0 
002400 000000 ERRMSG: : .WORD 0 
—_— 002402 000000 ERRBLK:: “WORD 
1254 : 
1255 .SBTTL = MOD U.PRT.ERR - PRINT ERRORS 
1257 002404 PRTERR: PRINTB #IDENT1 UNIT, CSRUUT, ESRUUT , CMD 
1258 002444 005737 002272 IFAUP: TST RTECD 2 IF ERR CODE FLAG 
1259 002450 001452 BEQ ENDUP “SET, THEN 
1260 002452 PRINTX #XER1,<B,XERUUT>.<B,WC>,<B,CTKO>,<B,CTK1> 
1261 002522 PRINTX #XER 2° <B.TIRK>, <B, TSEC>, <B,SFISTS>. <B, BIRK> 
1262 002572 005037 002272 CLR PRTECD ERR CODE FLAG 
1263 002576 005037 002604 ENDUP: (CLR ERRREG CL EAR ERR REGISTER 
1264 002602 000207 RTS PC ; RE TURN 
1266 002604 000000 ERRREG: 0 3 
1268 002606 045 101 040 IDENT1: .ASCIZ /%A UNIT#X%O1ZA RXCSR=%0%A RXESR=%0%A CMD=%O%N/ 
1269 002663 045 101 040 XER1: .ASCIZ /%A ERCD=Z03%A WC=%03%A CTRKO=%D22A. CTRK1=2D2%A. 
1270 002744 045 101 040 XER2: -ASCIZ /%A TIRK=ZD2%A. TSEC=%D2¥A. SFISTAT=%032%A BIRK= tbOuA. %N/ 
1272 = MOD Uy. PRT.ERR idan END MODULE ---------------------------------------- 
1273 
1274 
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D U.PRT.ERR = PRINT ERRORS 
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98 
99 
1 
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saeee3 
=-—o wi 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ce ede ce cee ed ce ed ad cd ce eld ce ed cet ceed eed cd ee ed ed ee cd cet eed ee ee ed ce eed ed ee ee ed ee ed ee ed eed ae od 
o WIN & ES 


WAWWAAAN 
— et et dw 
CONAN wr 


-SBTTL = MOD 


U.PRT.EC = PRINT UNIT ERROR CODE 


105737 033544 XERPRT: TSTB XERUUT s1F ERROR 
1424 BEOQ ENDXER "NOT=0, THEN 
13701 033544 MOV KER UT_R1 “SAVE EXTENDED ERR CODE IN TEMP #1 
042701 177400 BIC #177406,R1 “CLR TOP BYTE 
006201 ASR R1 “FORMAT E.C. 
006201 ASR R1 “FORMAT E.C. FOR ADR 
1 003114 ADD #ECTAB-2,R1 “FIND ADR OF ERROR MSG 
11137 003114 V (RT) ,EXMSG “SET ADR OF ERROR MSG FOR PRINT 
PRINTX EXMSG “PRINT UNIT CODE ERROR MSG 
105037 033544 CLRB = XERUUT “CLEAR ERROR CODE 
000207 ENDXER: RTS PC ¢ RETURN en ee Res Se SS SB DP Ge Se es SR Ds He S| ese ee BS SS 
000000 EXMSG: 0 :MSG ADR FOR PRINT 
3170 ECTAB: .WORD €C1 
30 “WORD ECE 
; 04 -WORD EC 
ae te Ee 
003451 “WORD ECG 
SO38s5 ‘WORD ECAO 
3208 “WORD  EC11 
3660 “WORD ECIg 
3714 -WORD EC 
003773 “WORD €EC14 
004021 “WORD E15 
004107 “WORD €EC16 
004153 “WORD C17 
004207 “WORD EC20 
234 -WORD £21 
004311 .WORD EC g 
Sodas 3 “WORD ECD 
004442 “WORD €EC25 


SEQ 27 


SEQ 28 
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-EC = PRINT UNIT ERROR CODE 


GLOBAL AREAS 
MOD U.PRT 


ER NOT=SELECTED TRACK.2N/ 


“DRV #0.2N/ 
“DRV #1.2N/ 
7 
T 
ECTOR. ZN/ 
TEST 


/ 
T. 
KEY WORD. ZN/ 


RI 
| 
ON 
E 
Ff 
ve 


D & SECTOR NOT FOUND.2N/ 
IN 40 MICROSECONDS.2N/ 


TIALIZE 


“wuss << ov 3 a= << 
~wmwMmwiw OU 

aw a eoxooea 
28328u84%328u Qa == 
ae-Oc oa@vu Jj jee Ze eowZa> 2 
a= w« ecco. 








>NO HOME ON INITIALIZE 


>NO ws)" 0 
D 
E 
: 





e- se 
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a & 
AAAA 


aq<4deaeectaedt dee eee ete ete 
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PRTBIS 


ERROR PRINT CALLS/MSG CALLS 
PRTB1 


SIRI EIEN RRR PSPSPS PIS 


(\ddiddiddddddecdddccd 


BGNMSG NONE 
PRINTB R1.R2 
RETURN 


ENDMSG 
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GLOBAL SUBROUTINES SECTION 


29 .SBTTL GLOBAL SUBROUTINES SECTION 
1 344 
Be > THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
: THAT ARE USED IN MORE THAN ONE TEST. 
Fi at 
? ; FUNCTIONAL DESCRIPTION: 
e SUBROUT IN eeee 
95 : INPUTS: NON 
01 > IMPLICIT INPUTS: NONE 
: OUTPUTS: RA 
> IMPLICIT OUTPUTS: NONE 
> SUBORDINATE ROUTINES USED: NONE 
> FUNCTIONAL SIDE EFFECTS: NONE 
: CALLING SEQUENCE: SUB 


-SBTTL = MOD U.1.0 - a GENERATOR 


Sone poekoee 
SECnRESUES 





a ee ee TT. eee Le 
ak 


b a a SS a yr SH ec a oS ar _— CSR AS Ce OO er ce Be wear we wr wre SS eew = "eee Set eseerwvre Kes ws 

460 004560 012700 000001 RANGEN: MOV 

004564 063700 004646 ADD Rai RO 
462 004570 063700 004650 RANG ARO 
463 004574 042700 170000 #17 RO 
464 004600 000241 
465 004602 006100 R 
466 004604 0061 : R 
467 004606 010037 004646 RO, RANI 
168 ogee $93 00 004650 RAN2,RO 
470 0 $8000 R 
471 004622 529u00 
47e 004524 063700 004646 RANT RO 
47 0066 042700 1 #170600 RO 
474 004634 010037 004650 
475 004640 010037 004652 RO. RANUM 
476 004644 000207 
478 004646 000000 RAN1 
479 094650 000000 RAN2 
480 004652 000000 R 
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1518 005000 
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1520 005006 
1521 005012 
1256 005016 
15235 005022 
1524 

128? 005024 
1526 
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.SBTTL = MOD U.A.1 = CONVERSION UUT CODE ==> SUTPTR 
CVUTST: NOP 5 
CLR SUTCV “CLEAR SYS UNDER TEST CONVERTED 
BIT #1, CVUNIT ‘IF DRIVE #0. 
BNE $ “SELECTED, THEN 
iT #2 .CVUNIT TF UNIT #O OR RXXX SIDE #0, 
BIS #1,SUTCV °SET FOR UNIT CODE=00 IN SUT WORD 
BR NOCVT “BR TO END 
1$: BIS #4, SUTCV “ELSE, SET FOR UNIT CODE=10 IN SUT WORD 
BR ENDCVT “BR TO END 
2$: BIT #2. CVUNIT :1f UNIT #0 OR RXXX SIDE #0, 
BIS #2,SUTCV *SET FOR UNIT CODE=01 IN SUT WORD 
BR ENDCVT *BR TO 
3$: BIS #10, SUTCV “ELSE, SET FOR UNIT CODE=11 IN SUT WORD 
ENDCVT: RTS PC “RETURN 
CVUNIT: 0 sUNIT CODE TO BE CONVERTED 
SUTCV: 0 *SYS UNDER TEST AS CONVERTED 
:MOD U. 3 waoee END MODULE eeeeccnonewreaweasnccoe eececeoeseoesoeoeeeseeosesescan 
.SBTTL = MOD U.A.2 = CONVERSION SUTPTR --> UUT CODE 


CVSTUT: MOV 
CLR 
1$: 





2$: 


SUTPTR.RS 


R4 ,UNITST 


RG .UUTOFF 
gUT00. RG 
(RG) UNIT 
PC 


SAVE SUT POINTER IN _R5 


4 ie (RESET UNIT CODE) 
sEQUALS 1 , THEN BR TO 2$ 
rH RIGHT R5 


2BR 
; THEN R4& CONTAINS UUT CODE 
: UNIT CODE FOR ADR 


ESET UNIT=PRINT UNIT# 
;RETURN 


UNITST: 0 
sMOD 2.0A - 


~--- END MODULE 


SEQ 30 


SEQ 31 
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MOD U.DEV.REC = DEVICE READ ERROR CODE 
15 3 .SBTTL = MOD U.DEV.REC - DEVICE READ ERROR CODE 
1531 ° 
12 : 5026 34 RDERCD: NOP ; 
15 5030 01 02236 MOV UUTADR,RS “SET RS = UUT ADDRESS 
153 3 127 01 002272 MOV #1 PRIECD “SET PRINT ERROR CODE FLAG 
13 5 042 12737 09017 00 136 MOV #17, RECCMD “SET UUT EXTENDED ERROR CODE 
1 5050 053737 2242 005136 BIS DEN, RECCMD “SET DEN FOR CMD 
13 ? 3 56 013715 0 136 MOV ECCMD, (R5) “SEND CMD TO UUT 
1 13701 236 MOV UUTADR Rt “GET UUT ADDR 
13 9 3 701 0 02 ADD R1 *CAL DATA ADR 
1540 737 £ 025332 MOV UUTADR,CSRADR :SET CSR A 
1541 0051 12737 0 : 00 025330 MOV #TRBIT.RDYWD :SET TR’ BIT TEST 
134 3106 004737 : 30 CALL OD LAY “CALL DELAY MODULE-wAIT FOR TR 
154 90511 032715 000200 IAREC: BIT #200, (R5) “IF TR 
1544 005116 001004 E LARE “NOT SET 
1545 005120 052737 040007 002274 BIS #40007.ERRSY | :THEN SET ‘’TR'’ ERR ON FUNCTION 
1546 005126 02 BR KR *BR TO END 
1547 005130 012711 033544 LAREC: MOV #XERUUT, (R1) *SEND BASE ADDR FOR EXTEND ERR CODE 
1548 005134 000207 MREC: RETURN ;RETURN 
1550 005136 000000 RECCMD: 0 ; COMMAND WORD USED IN THIS MODULE 
1552 
1553 005140 ENDMOD 
1554 


G 3 
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MOD U.DEV.REC - DEVICE READ ERROR CODE 

1567 .TITLE MISCELLANEOUS SECTIONS 

1568 “SBITL REPORT CODING SECTION 

1606 005140 BGNMOD 

1807 

1608 :++ 

1609 : THE REPORT CODING SECTION CONTAINS THE 

1610 > “PRINTS CALLS THAT GENERATE STATISTICAL REPORTS. 

161g ; 

4 2+ e <P. 82 OR OD ee BGNRPT nee aw ewe ee SCOTS Ms SBF OQ ees Otee ewe wee ewesee gj steerer wswroewerersee ee re == 
1615 $08 $20 REPORT: NOP : 

1616 3 1 06074 005504 MOV #PT20SP,PRT1 “SETUP CTR HDR 

161 12737 274 005506 MOV #PTUNT2.PRTI2 =; 

1618 5 04737 G14 CALL §PRTHOR “PRINT HEADER 

161 4 004737 5646 CALL PRTCTR “PRINT SEQ CTR 

16 5 0127 7 00610 005504 MOV #PTI9OSP,PRT1 “SETUP REPORT HEADER PART 1 

1621 3 12737 062 3 005506 MOV #PTUNTI.PRT2 ~~: 

16 é 004737 005414 CALL § PRTHOR “PRINT HEADER 

1 5 240 NOP “SETUP DATA PART 1 

1624 005 09 : 005636 CLR LINECT ; ZERO LINE COUNTER 

1625 005 5037 005644 CLR PRNUM ; CLEAR PRINT MODE 

16 $ 005 OTS oot 007354 MOV #CKSML ,R2 > SET BEGIN ADR OF DATA-PART 1 

1627 005 012701 006360 MOV #PRIDXK,R1 : SET BEGIN ADR OF TABLE LABLES-PART 1 
1628 005 012737 000023 005640 MOV #19. LINES ; SET # OF LINES TO PRINT 

1629 005 004737 005510 CALL § PRIDAT “PRINT DATA 

1630 005 012737 006200 005504 MOV #PTEC, PRT ‘SETUP HEADER PART 2 

163% 905 012737 006253 005506 MOV #PTUNTI,PRIZ2s: 

16 5 004737 005414 PRTHDR *PRINT HEADER 

1633 005 000240 “SETUP DATA PART 2 

1634 005 012737 000001 005636 #1,LINECT ; SET LINE COUNTER=1 

1635 005 012757 000001 00564 PRNUM ; SET PRINT MODE=1 

1636 00 12702 007604 #ECLOG.R : SET BEGIN ADR ERROR CODE DATA-PART 2 
1637 005 012701 7 #PTECN,R ; SET ERROR CODE PRINT-FORMATED MSG-PART 2 
16 01 737 7 005640 #23..L1 : SET # OF LINES TO PRINT 

1639 12737 006 7 005642 #PTECN,LINTYP : 

1640 005 004737 009510 PRIDAT “PRINT DATA 

1641 005 0127 7 32 005504 @PTTK,PRTI “SETUP HEADER PART 3 

164¢ 012737 006253 00550 #PTUNTI,PRT2 =; 

1643 005 004737 009414 PRTHOR “PRINT HEADER 

1644 005 005037 5636 : 

1645 905 0127 7 1 : 

1646 005 ot 702 10070 “SETUP DATA PART 3 

1647 005 127 115 : 

1648 005 012737 006343 : 

1649 005 004737 005510 “PRINT DATA PART 3 

1650 005 

1651 eee men eres mem enecnenmenerenneeeenen ences eesesssseseenensen== 
1652 005 000000 SUNIT @ 

1653 005 0000 “UNIT COUNT 
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PRINT REPORT TYPE 1 


PRINTS R5,PAR 
RTS PC 


PRINT REPORT TYPE 2 


: PRINTS R5 
RTS PC 


PRINT REPORT TYPE 3 


PREPT3: PRINTS RS.R4.R3 
RETURN 
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/ENZA# SECTOR WRITES ( 
RRENZA 

/ENEZNZATRACKA / 
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SEQ 36 
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1848 007514 
1849 press 
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1853 007564 
1854 007574 
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1856 010070 
1857 
1858 011240 
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1874 
1875 
1876 011242 
1877 011242 
1878 011244 
1879 011246 
1880 011250 
1881 


-_— 
® 
_ 


000000 
177777 
000004 


IONS MACRO M1200 
ES 


Q 37 
15-DEC-82 13:50 PAGE 48 _s 


-SBTTL = STATISTICAL TABLES 
READSC: .BLKW B- sREAD SECTOR COUNTER 
WRITSC: .BLKW ‘ sWRITE SECTOR COUNTER 
KSML: .BLKW 4 ;CKSUM LOG 
BUFERL: .BLKW 4 sFILL/EMPTY BUFFER ERROR LOG 
OERL: .BLKW 4 :NO ERR BIT LOG 
UKINT: .BLKW 4 : INTERRUPT = NO DONE LOG 
INTER: .BLKW 4 s INTERRUPT ERR 
SEK: -BLKW 4 sSEEK ERR 
CRC: —BLKW 4 :CRC ERR 
CRCBAD: .BLKW 4 ;CRC BAD ERR 
RD: -BikW 4 sREAD ERR 
WRT: -BLKW 4 sWRITE ERR 
DATA: BLKW 4 :DATA ERR 
DLDTER: .BLKW 4 :DEL DATA ERR 
SEK: -BLKW 4 SHARD SEEK ERR 
CRC: -BLKW 4 sHARD CRC ERR 
HCRCBD: .BLKW 4 ; CRC BAD ERR 
D: —BLKW 4 sHARD READ ERR 
T: LkW 4 SHARD WRITE ERR 
HDATA: .BLKW 4 ;HARD DATA 
D: -BLKW 4 sHARD DEL DATA ERR 
ECLOG: .BLKW 90. sERROR CODE LO 
TKXX: -—BLKW 308. s TRACK ERR LOG 
ENDST: .WORD 0 sEND TABLE 
EVEN 
-SBTTL LOAD DEVICE PROTECTION 
BGNPROT 
-WORD 0 sRX CSR = HARDWARE P-TABLE OFFSET 
-WORD -1 ;DON‘T 
WORD 4 >RX DRIVER-HARDWARE P-TABLE OFFSET 
ENDPROT 


SEQ 38 
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AD DEVICE PROTECTION 

1 

1885 .SBTTL INITIALIZE SECTION 

1 dan eres IZ SECTION CONTAINS THE CODING THAT 1% PERFORMED 

1 : THE I INITIA 12 SECTION CONTA NS TH 600! ING THAT wi PERFORMED 

1 > AT THE BEG NNING F EACH P PRIO7 BEEN CH ANGED TO PRIO6 

89 > TO MAKE THIS DIAGNOST Spee 1/21 PROCESSO SPECIFI 

1891 011 ' BGNINIT 

1 32 11 8 005037 002266 INIT: CLR FLAGS LEAR A ALL, FLAGS 

1897 011254 RFLAGS FLGDRS °G FLA 

1 READEE #EF PWR iL (POWER FAIL FLAG 1S 

1 11 0527 7 000001 002266 #POWERF FLAGS SET 1 POWER FAIL FLAG 

1 11 507 N ‘BR TO ‘FIN® 

1 6 11 1$: READEF #EF.START “IF START FLAG 

1 11 NCOMPLET 2$ “SET, THEN 

1 1 5037 00 g UOADR ‘CLEAR SYS UO ADDRESS 

1905 011 7 UIADR “CLEAR SYS U1 ADDRESS 

1 11 7 4 UOVECT *CLEAR SYS UO VECTOR 

1 11 5037 UIVECT SCLEAR SYS U1 VECTOR 

1 1 7 2$: Sut ‘CLEAR SYS UNDER TST WORD 

1 11 27 12 000004 LSUNIT,#4 ‘JF 4 UNITS OR LESS SELECTED 
1910 011 051 INITER : THEN 

1911 011 #EF RESTART S JF RESTART FLAG 

1912 011 ETE SETUP “SET, THEN 

1913 011 $2737 002266 #RESTAR, FLAGS *SET RESTART FLAG 

1914 011 : 7 SETUP: ABORT CL FL 

1915 011 12737 7 4 #-1, UNIT *R 

1916 11376 012737 177777 -1,UT :R 

1917 011404 012737 177777 #-1,UT01 +R 

1918 11412 12737 177777 -1,UT 0 oR 

135 BUNGEE BLSrer Soooot BUSEEe ri at f 

138 11434 3737 12 34 LSUNIT,UNIT tl 

1923 011444 GPHARD UNIT,PLOC ; “TABLE 

19 4 1145 ; SNCOMPLETE 1§ ;1F P=TABLE AVAILABLE, THEN 
1926 01146 eat 011656 JSR PC ,UNPKHP [CALL UNPACK HARDWARE P-TABLE 
1927 011466 000757 BR BRING P10 RAR ” 

1928 0114 INITER: PRINTF WINTER) : RINT 59° MANY UNITS 

19 1151 012737 000001 002270 ‘ oi #1, ABORT 

1931 011 58 FIN: DP THEC UOVECT .#INTHO ,#PRIO6 00 tEA AN UP cop 

19 1 46 005737 002226 ist VECT : IF S¥S ut VECTOR 

1934 011554 1$: SETVEC STVECT .#INTHT #PRIOG NOT= Svs i VECTOR 

1 1 1602 2s: ENDINI J Se SaaS SFSHBOBWBSZ@ZQewDWowaneoeowrerareeeeoeerraee~ = - = 
1956 011606 000000 | Re 2h Sec aR 
1958 011606 045 116 045 INTER}: “ASCIZ 7ENZAONLY FOUR UNITS ALLOWED, START OVER/ 

1960 é a 0 ER CO OR eae ty ce SSS ES SSS SSESSSESSSESSSESESESESESESEESESSESESSSS SESS SSSVSSSSSOSOOOSOS| 
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boos 018826 


012330 


—— 
—_— 
oo 


045 
045 


inms62 LASCIZ /%NZAUNIT#ZD1%A ANS RXXX EXPANSION TO SELECT SIDE #1->START OVER/ 
: [ASCIZ /2ZNZAUNIT#ZD1ZA NOT SCHEDULED-TWO BUS ADDRESSESS ONLY2N/ 


END MODULE 


ELKI1: BIS 
MOV 
BR 
IFLI1: TST 
BNE 
BIS 
MOV 
BR 
ELLI1: BIS 
MOV 
EIFI1: MOV 
MOV 
ASL 
ADD 
MOV 
MOV 
BR 
ELII1 PRINTF 
re 
ELDI1 RINTF 
ENDI1: R 
— 0 
INMSG 
EVEN 
:MOD 1.1 acoso 


5 


N 
#INMSG2 ,UNIT 


ENDI1 
| aaaaaleaeaal 


mr 
—— 
m 
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m—MOww 
on"Dz 
SS z2aue 22 


RVQAOMMWMnm 
oOnmem 


Ze 2 


sUNIT CODE 
sUNIT FLA 


S 


T 


= 


— «= 


DDRESSI./G 


es | 
or ‘Wwiniwmwi wD 
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HEDULED-TWO BUS ADR ONLY" 


IT CODE TABLE 


R THIS UNIT CODE 
# FOR PRINT OUT 
ELECT RXXX TO SEL SIDE" 


SEQ 40 


arm 


wv 


Vw Cr 


~m 
oleleoleola! =) oo Coocooo 
ee SSS FERAL 
VINO NOUOO~C UW! 
ooCoooCooOoo 
ee ed ed td 
MMVII 
va? 
oocoons 


s 000240 
05737 002226 
801403 
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~SBTTL CLEANUP CODING SECTION 
344 

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE END OF EACH PASS. 


oan 
CLRVEC UOVECT 
art 1VECT 
CLRVEC UIVECT 
BRESET 
ENDCLN 


2$: 


-EVEN 


SEQ 41 


YS 
zz 
w 
om 
mn 
cor 


LANEOUS $ 
ROP SECTI 
$088 
990 
091 01 2 : 
a 8 
Bs Hes 
095 0125 
44 1 2 0 
12574 
126 
1 
1 126 
8) B38 
Bg Sts 
sib 012624 
105 012652 
2106 0126356 
2107 012640 
si5 012644 
109 012650 
2110 012652 
2111 oiseer 
sit¢ a 664 
2113 012666 
2114 012674 
2115 012676 
2116 012702 
2117 012704 
2118 012710 
2119 012714 
2120 012720 
sig] 012724 
21 ¢ oilers 
21235 012732 
2124 012734 
2125 012742 
$136 012746 
2127 012750 
2128 012756 
si¢ 012762 
2130 012764 
siz) Og 766 
21 4 012772 
213 
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Nw 
SN SNE O SY 
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002220 
002336 
i 

12774 

02270 
002336 
002340 
002172 
002342 
002342 


002344 


002222 


002344 
002220 


002270 


‘AUTO DROP SECTION 


SEQ 42 


-SBTTL 
BGNAUTO 
JAATDP: TST 
BEQ 
MOV 
MOV 
CALL 
IBATDP: TST 
BEQ 
IGATDP: TST 
BMI 
DODU 
IHATDP: TST 
BMI 
DODU 
ICATDP: TST 
BEQ 
MOV 
LIATDP: TST 
BM] 
DODU 
IJATDP: TST 
BMI 
DODU 
BR 
IDATDP: TST 
BEQ 
MOV 
MOV 
CALL 
JEATDP: TST 
BEQ 
IKATDP: TST 
BM] 
DODU 
ILATDP: TST 
BMI 
DODU 
IFATDP: TST 
BNE 
DOCLN 
MATDP: CLR 
ENDAUTO 


“se 


0 ADDRESS 
a5 F SELECTED UNIT 
S DDRESS 
DD TEST 

RT 

HEN 
TOO SELECTED 


IT 00 
TO1 SELECTED 


ROP UNIT 01 
RXXX DEVICE 


D 

7 iF . 

$e RS = ADR OF SELECTED UNIT 
>D 


UT10 SELECTED 


ROP UNIT 10 

:IF UT11 SELECTED 

3 THEN 

sDROP UNIT 11 

;BR TO EXIT 

s1F SYS UNIT 1 ADDRESS 
;NOT=0, THEN 

sSETUP R35 = ADR OF SELECTED UNIT 
T SYS UNT 1 ADDRESS 
LL ADDRESSING TEST 
ABORT FLAG 


» THEN 
uT1 
N 


H 
0 SELECTED 


“DROP UNIT 10 
“IF UT11 SELECTED 
*DROP UNIT 11 
SYS UNIT 0 ADDRESS 
HEN 


EQUALS 0, T 


MISCELLANEOUS SECTIONS 
- TEST 0: ADDRESSING 

21 

137 

138 

159 
sit 
He 
g148 

144 
2145 

146 

147 

148 
2149 
$120 

151 
8 

153 012774 000240 
2154 012776 005037 
2155 0135002 
2156 015050 011201 
$12 013032 

158 013040 005737 
2159 0135044 001426 
2160 013046 012701 
8) Site Seas 
5168 01 011337 
2164 01 hay 
2165 01 00503 
2166 0135072 012737 
2167 0135100 012737 
2168 0135106 012737 
2169 013114 005037 
2170 013120 
2171 013122 000207 
$176 

2175 013124 101 
2174 0135144 045 
2175 015200 045 
2176 


002270 


002270 


015144 
002074 


4 
000620 002376 
4 002400 
eet thy 002402 


104 104 
101 040 
101 040 


-SBTTL = 
BGNSUB 


ADRTST: NOP 
LR 
SETVEC 
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TEST 0: ADDRESSING TEST 


“SET SYSTEM FATAL FLAG 
CALL FUNCTION TEST ERROR 
REPORT BUS TRAP ON RXCSR 


ABORT i CLEAR ABORT FLAG 
@BTRPS STRAP, #PRI 6 





) sREAD RXCSR 
#BTRPS 
ABORT s1F ABORT FLAG 
2$ sSET, THEN 
#TRPMS1.R1 “SET TRAP MESSAGE 
(R3)+,L$LUN SIF UNIT 
*NOT SELECTED, THEN 
(R3),LSLUN °F NEXT UNIT 
1$ “NOT SELECTED, THEN 
*CLEAR UNIT 
“SETUP ERR NBR = ADR ERR 
*SETUP ERROR MSG 
*SETUP ERROR BLK 
“SETUP ERR TYP = SYS FIL 
cet ERROR 


-ASCIZ /ADDRESSING TEST/ 


TOMSG: 
TRPMS1: .ASCII /ZA BU 
yn tt /ZA INTERFACE BAD OR NOT SET TO ABOVE ADDRESS2N/ 


S TRAP _AT ADDRESS: 2062N/ 


SEQ 43 


Q 44 
MISCELLANEOUS SECT 1ONS MACRO M1200 15=DEC-82 15:50 PAGE 60 - 
MOD U.SFT.TRP = BUS TRAP HANDLER 


2186 -SBTTL = MOD U.SFT.TRP - BUS TRAP HANDLER 
3 ++ 
181 : FUNCTIONAL DESCRIPTION: SUBR TO HANDLE DEVICE BUS TRAP 
218 : INPUTS: NON 
218 : IMPLICIT INPUTS: BUS T 
2184 ; OUTPUTS: BUS TRAP UR ROR. ABORT TEST 
$18? : PLICIT OUTPUTS: NONE 
186 : SUBORDINATE ROUTINES USED: NONE 
2187 : FUNCTIONAL SIDE EFFECTS: NONE 
sis ‘ CALLING SEQUENCE: INTERRUPT 
$18 
19, é Ss @e ee @Oe @ ee enews ess Ow eBse © SST MSE He SSO DWs SWE eanawneaeecewetsewn newer wenezewe nF SFweaee eer = 
$198 013260 052737 004000 002274 TRAP: BIS MSYSERR,ERRSY ;SET SYSTEM ERROR 
2194 013266 005237 002270 INC ABORT :ABORT TEST 
$i 013272 000002 RT *RETURN FROM TRAP INTERRUPT 


MISCE 
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SEQ 45 
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~SBTTL DROP UNIT SECTION 






+4 
: THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
> TO NO LONGER BE TESTED. 
BGNDU 
MOV RO,UNITDP GET LOGICAL UNIT # 
CLR “LET R2=UNIT CODE# & UNIT COUNT /CLEAR IT! 
MOV #UTO0,R1 *GET BEGIN UNIT CODE ADRESS 
1$: CMP UNITDP, (RI) “IF USER UNITS 
BEQ % 31S ODE - UNITS 
INC Re IN IT CODE# & UNIT COUNT 
CMP #5,R2 z IF 
BHI Ex 
PRINTF #DUMSG2,UNITDP ;PR OUND 
GR 33 :BR 
2$: MOV #-1,-(R1) :D 
MOV R2,CVUNIT 35 CONVERSION 
CALL CVUTST :C ONVERT UNIT# TO SUT CODE 
MOV SUTCV,SUTORP :§ = SUT CONVERTED CODE 
BIC SUTDRP, SUT :D N SUTDRP 
BIC SUTDRP. SDD :C N SUT DROP 
PRINTF #DUMSG1,UNITDP 
3$: ENDDU 
UNITDP: 0 :UNIT TO BE DROPPED 
SUTDRP: 0 *SYS UNDER TST, DROP BIT 


DUMSG1: .ASCIZ /%N%ZA DROP UNIT#ZD1ZA FROM TESTIN/ 
DUMSG2: .ASCIZ /%ZNZA COULD NOT DROP UNIT#ZD1%A -NOT SELECTEDZN/ 


-EVEN 


SEQ 46 
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CTIONS MACRO M1200 


[vw] 


~SBTTL ADD UNIT SECTION 
UNI 
A 
] ee 
BGNAU 
ENDAU 
~EVEN 


MANN DOOSORRNO 
CucucuCcUCuCUCu CU CUCUCUCUCUCUCU 






SEQ 67 
HARDWARE TESTS MACRO M1200 15=DEC-82 13:50 PAGE 66 . 
ADD UNIT SECTION , 
89 ~TITLE HARDWARE TESTS 
ey » SBTTL TEST 1: RXO2 SS PERF EXERCISER 
: 38 : TEST TO EXCERCISE RXO2/XX SYSTEM 
Se -SBTTL MOD 0.0 - EXERCISE A SYSTEM 
96 : BGNTST 
97 ; BGNDO 
2298 : : BGNSUB 
$ 99 : : +: INITIALIZE (LOCATIONS, ETC.) 
: : +: CALL MOD 1.0 
2301 : +: ENDSUB 
4 : : IF ERR SYS=1 
: : : THEN=- 
_— CALL MOD 4.0 
2305 :; +: ENDIF 
2306 : : IF ABORT=0 
2307 >: : :  THEN= 
2 _ BGNDO 
a oe : BGNSUB 
310 . ey CALL MOD 2.0 
ei So oe IF ERR SYS NOT=0 
2 \¢ Be : THEN] 
231 ao CALL MOD 4.0 
314 Roe 4 IF ABORT=0 
315 ee ae : THEN] 
316 Seer ee : CALL MOD 3.0 
2317 ae co ENDIF 
18 a ee ELSE- 
19 ea ey : CALL MOD 3.0 
359 te ee ENDIF 
1 c. oe : CK LOOP 
$355 eae : ENDSUB 
$352 Bo ; DO UNTIL ABORT=1 OR EXCMP=1 
2325 » DO UNTIL SWREG BIT#15 NOT SET 
$359 : If ABORT=1 
27 > +: THEN] 
2328 : DO CLEAN UP 
$385 : : ELSE- 
23 $3 DO REPORT 
$335 : _ENDIF 
33% : ENDTST 
233 ° Oo Sb OD CD Ge SD > Oh Se ES es OP Seceeeec eae See@ee eee eee See eee eee eee enone ee eee ee & 


SEQ 48 
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HARDWARE T 
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SO EE EO EO EO OO EE ED GD EE ED EE EE EE Ee ET GS CE EN Ee I Gn en om oo ee = 


SOOSOSOSSOOSOGOSOSOOSSOSSOSSOSOSOSOSSSSSSSOSOSSSSOOSOOSOOSOESSEEoeSsso SO 


oS 
MOR DAO WUMTMNOR ORO UM TNOR ODOR nor. ORK VUM TNO Ww Sasnse 
WMNRAAT II IIS SSS RAAARARRARBODIGISISOE ENTS SR SR aROR 


NONI RNIN RNIRI RNIN EIN CII NI NIN NINN NINN NINN NINN 


MOD 0.0 - 
° 788 
89 
2390 
2391 
§ 3g 014022 
93 014024 
94 ae 
95 0140 
38 014040 
97 014046 
98 Orbe 
99 014054 
400 014060 
401 014066 
re 014072 
40 
2404 014074 
2405 
Se 
407 
24 
2409 
2410 
seis 
alg 
24135 014076 
414 014100 
415 014106 
sei$ 014110 
2417 014116 
2418 014120 
2419 014126 
2420 014134 
2421 ore les 
ot5§ 01415 
$25 014152 
2426 oeies 
2425 014162 
2426 014166 
2427 014174 
2428 014176 
43 Bis 
431 Pee 
seat 014214 
243 


HARDWARE TESTS MACRO M1200 
EXERCISE A SYSTEM 


Secess 

— 

MMW 
[=] 

~rD 


[Sas 
ts 


000001 


014076 
040000 


1421 

17803 
040000 
014074 


000001 
000200 
000100 
002206 
002210 
000002 
000010 


002244 
000001 


000400 
002242 
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002266 


002204 


002274 


002204 
002252 
002252 
020650 
020652 
002204 
002244 


002204 
002242 


SEQ 49 
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.SBTTL MOD 1.0 = GET SYSTEM EXERCISE 
GTSYEX NOP 
IFB10: BIT #POWERF .FLAGS SIF POWER FLAG 
BNE FAI “NOT SET, THEN 
JSR PC, GTEXCD “CALL GET EXERCISE CONDITION 
1FA10: BIT #46000, SUREG *IF NO INITIALIZE 
BNE LA10 “NOT SET, THEN 
JSR PC,GTSYS “CALL GET SYSTEM TO EXERCISE 
ELA10: JSR PC GTEX “CALL GET EXERCISE 
BIC WBITIG,ERRSY | :CLEAR ANY TIME OUT ERRORS ALREADY REPORTED 
CLR FIRST “CLEAR FIRST PASS FLAG 
RTS PC ; RETURN 
FIRST: 1 FIRST PASS FLAG 
sMOD 1 0 eecesoe END MODULE SSS SSSSSSSSSSSSSSSSSSSSSSSSESSESESESSESESSOESSEEZESES 
.SBTTL MOD 1.1 = GET EXERCISE CONDITIONS 
GTEXCD: NOP 
IFA11: gir #1 -SUREG IF ser FOR DOUBLE DENSITY 
MOV #200,WDCNT <SET WORD COUNT =256 BYTES 
BR Alf :BR 10 if 
ELA11: MOV ay WDCNT 7SET WORD COUNT=128 BYTES 
EIA11: MOV OTDITK.OD *SET OUTSIDE TRACK ADR. (FROM SOFTW P-TAB) 
MOV INDITK, | “SET INSIDE TRACK ADR. (FROM SOFT P-TAB) 
BIT SWREG 3 1F DEL DATA SET 
BEO 11 : THEN 
MOV #10,DELDAT 3SET DEL DATA MODE 
BR cit TO END IF 
ELB11: CiR DELDAT :CLEAR DEL DATA MODE 
IFC11: BIT é SUREG >IF DOUBLE DEN IS SET IN SOFT SWREG 
BEQ e.ci1 °TH 
MOV #400,DEN ?SET DEN=DOUBLE 
BR EIC1i ‘BR TO END IF ‘C* 
ELC11: CLR DEN >SET DEN=SINGLE 
—E1C11: NOP 5 
RTS c * RETURN 
;MOD 1.1 eccee END MODULE OS SOS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSESESESESSSOSS 


HARDWARE TESTS MACRO M1200 15=-DEC-82 
MOD 1.1 = GET EXERCISE CONDITIONS 


441 014216 
2442 014220 004737 014626 
2445 014224 oie! 7? 000040 025330 
2444 ae ‘ 015737 00 $¢0 025332 
2445 01424 8037 7 025250 
oes pte 44 4444 9000460 165746 
447 014252 906 
sie8 ote 54 012737 016167 016130 
449 014262 737 016016 
2450 014 ee eed 
2451 014270 012777 040000 165722 
ote} 014276 Site 000040 0253350 
24535 0143504 015737 00 $$0 025332 
2454 014312 004737 025250 
2455 014316 032777 000040 165674 
2456 0143524 001006 
2457 Oieeee 012737 016235 016150 
2458 0145 004737 016016 
2459 014340 000415 
2460 014342 ETA 000002 012478 
2461 014350 012737 015502 
set 014356 005037 015300 
2465 014362 015704 002220 
2464 014366 004737 014742 
2465 014372 000412 
2466 014374 005737 002172 
2467 014400 001404 
2468 014402 042737 000017 002232 
2469 014410 000405 
2470 014412 042737 000003 002252 
2471 014420 005737 002172 
orig 14424 001401 
2473 014426 ‘spe t 
2474 014430 052737 000014 002232 
se Se BEF are 
2477 0144446 032777 000040 165550 
st35 grees 001441 
4 14454 012777 040000 165540 
480 014 012737 000040 025330 
st 1 014470 015737 poesée 025332 
482 014476 004737 025250 
24835 014502 032777 000040 165512 
484 014510 GOIsi¢ 
485 OTe 206 Ost 000004 015302 
24 14520 012737 00000 Ot 2608 
2487 014526 Ole ar 015300 
6 14534 01 As 002 
489 014540 004737 014742 
490 oeeee 14 
491 014546 012737 016235 016130 
2492 014554 000403 
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IFAl2: 


ELA12: 


IFB12: 


ELB12: 


IFF 12: 


ELF 12: 


SEQ 50 


MOD 1.2 = GET SYSTEM TO EXERCISE 


Crewman Se 
<o==—-o~=4 O-- ©OoO- < 







Phe 
od 









<o=—r << 
rf 


G 

U0 DR, CSRADR 
#ON JT .@UOADR 
ELA 


#INTER2, 1 TMSG 
ITERR 


2am 
yy) 
Somo— 
a or 
So 
. 
& 
Oo 
PP 
oOo 
@ 


D 
#ONBIT,@UOADR 
#INTERS,1TMSG 
ITERR 


ciate 

#2, UNTCNT 
#1, SUTPOS 
uNT 


,QUTADR 
#DNBIT .RDYWD 
UTADR, CSRADR 


+ 5 | etmaaanae 


#4 ,SUTPOS 
oUNTCNT 


nw 
ono-C 


RESET 
PRINTABLE SYSTEM 0 UNIT # 
WORD = DONE 


>a m™m 
zona 

amr <0 C0 
2= m= Ww 


ELAY FOR DONE 
NE BIT 


m zo w 
zm wn 
"NA zoVC © 
oa oO 


‘d 

RR=U0-NO DONE BIT 
ROG INIT TO U0 
RD = DONE 


4—Dio~- vrs 
mm + wre 
w> 
oaoGuNZ—Z 
<corv-— 
‘> on 


RESS 
ELAY FOR DONE 
DONE BIT 


4“ 
ett +t) 
at 
Naas 

S6 

“wZovcvowv 


Ga 
enn. NO DONE BIT 


TO CK 
ON IN SUT TO TES? = 1 









AEB 
S35 


ADDRESS 
CK DRIVE STATUS 


xo 

> 

>t om 
™~" 


; THEN 
;CLEAR RXXX UO SELECTED DRIVES 
;BR TO IF *C* 


sCLEAR RXO2 UO SELECTED DRiVES 
F RXXX 


: THEN 

BR r0 IF "G* 

“SELECTED THEN 

“CALL GET PRINTABLE SYSTEM 1 UNIT # 
-1F U1 DONE BIT 


2 
a) 


If Ul 
3SET THEN 
s INITIALIZE DEVICE Ul 
sSET READY WORD = DONE BIT 
:SET TEST ADR 
sCALL MOD = WAIT FOR DONE 
;1f Ul DONE BIT 
:SET THEN 
sSET POSITION IN SUT = 4 
:SET # DRVS TO CK = 2 
sSET UUT CODE = ¢ 
sSET TEMP #4 = U1 ADR 
:CALL MOD 1.2.1 = CK DRIVE STATUS 
BR TO IF *6°. , 
:SET MSG#-U1-"'NO DONE BIT-PROG INT 
:BR TO END IF ‘E° 


HARDWARE TESTS 
MOD 1.2 = GET 
2493 014556 
2494 10288 
2495 014570 
2496 Breas 
497 B08 
498 014604 
499 dre dh 
500 014614 
2501 dpe Fa 
S206 014624 
30 
04 
05 
506 
507 014626 
si ae 2 
146 
510 014640 
511 014646 
21¢ 014650 
25135 014654 
2514 014656 
2515 014664 
516 014666 
517 014672 
518 014674 
2519 014700 
2520 
$28) 
256 
252 
$2S¢ oer Oe 
525 014706 
2526 014712 
$256 014714 
ste Feta 
5388 014750 
2531 014732 
2532 014740 
2535 


ss wee 15-DEC-82 
SYSTEM TO EXERCISE 
127 016167 016130 
<f ? Bh a 
gf ? 000014 002232 
737? 002232 
1007 
12701 016305 
737? 004516 
090240 000001 002270 
0 


oO os 
=’ So 
WSAR 
SE NO 


002336 002534 
002340 
002340 
002172 


014702 


a3 


002534 


So 
— 
Ww 
~ 


S : 
OWOWOS we Ww 


333s 


? 002334 
7 002342 


002342 
002344 
002344 


2238 
Re 
ae 


002334 


355 
SMe 


002334 


o- 
— 
Ww 
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ELG1l2: 


sMOD 1.2 ----- END MODULE 


SEQ 51 


M out DONE BIT-BUS INIT’’ 


1 FROM TEST 
DER TEST 


N 
H N se 
= "NO SYS TO TEST 

BASIC=0 ARG 
LAG 


AOWMeeme 


MOD 1 2. U.1 = GET PRINTABLE SYSTEM 0 UNIT # 


3SET UNIT=0 
HIF yoo 


3 THE 
sc GET PRINTABLE SYSTEM 17 UNIT #@ 
;RETURN 


-SBTTL = 
GPSUNO: CLR 
TST 
BMI 
MOV 
BR 
2$ TST 
BM] 
MOV 
BR 
3$: TST 
BEQ 
CALL 
—— RETURN 
-SB8TTL - 
GPSUN1: CLR 
1$: TST 
BMI 
MOV 
BR 
2$ TST 
BMI 
MOV 
XPSUN1: RETURN 


MOD 1 -2.U.2 ~ GET _PRINTABLE SYSTEM 1 UNIT # 


~ 3SET UN UNIT=0 

:1F ut 

:VALID, THEN 

+ A it FOR PRINT 


2 fae HEN 
2 SETUP UNIT FOR PRINT 


SEQ 52 


HARDWARE TESTS MACRO M1200 15-DEC-82 15:50 PAGE 73 


MOD 1.2.1 = CK DRIVE AVAILABLE 
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SEQ 53 


~1 = CK DRIVE AVAILABLE 
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MOD 1. 


; INITIAL COMMAND WORD 
;SYS UNDER TST POSITION 


;FORMATT CK FLAG 


;REFORMAT COMMAND 


SBERRRSSS 


ao leleleleleolelelo) 


SEPT SESSSS 








SEQ 54 


E DENSITY 
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a a ie MACRO M1200 15=-DEC-82 
1.2.1.1 = REFORMAT DRIVE DENSITY 


on $7 He 100000 177372 
70 13737 015264 002332 
1 71 13737 HE 72 009236 
1571 4737 005026 
$3 157 12737 0170352 016130 
157 0 337 
ore 157 12737 017116 016130 
en8 1574 ee 3 
674 01 res 12737 016454 016130 
675 01 Pe 737 016016 
676 015754 0047357 002404 
677 015760 411 
O78 12266 4. 737 016652 016150 
6 1577 00403 
15772 0127 016704 016130 
1 016000 004737 016016 
rey) 016004 
016006 004737 016064 
684 016012 000207 
2685 
016014 000000 
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SEQ 55 


zm 

ocown 
io 

— > > - 

ovocvZzo- 


D ERROR CODE 
R ON REFORMATT’’ MSG 


BIT AFTER REFORMATT’’ MSG 


-O cm 


z 


=—mr 


ERROR 


wanuees TESTS MACRO M1200 15-DEC-82 
1.2.U.3 = INITIALIZE ERROR 


691 
69 
£38 16016 012737 900539 002376 
694 16063 12737 piel. 00 tt 
695 0160 ‘ 12737 004506 00240 
$938 ope 012737 4's 002374 
697 016046 015757 002554 002074 
698 016054 
99 016056 004737 016102 
00 016062 000207 
701 
70 
70 
704 
705 016064 013737 015302 015440 
706 016072 
Ad 016100 000207 
708 
500 
710 
2711 
5718 
715 016102 013702 002334 
2714 016106 atta 0161535 
sie 016112 00467357 0045356 
716 016116 013701 0161350 
2717 016122 004737 004516 
at 016126 000207 
$70 016130 000000 
ois¢ Ot61 36 111 116 111 
2725 01615 045 101 040 
2724 016167 045 101 055 
2725 016235 045 101 055 
27 ° aie 5 045 116 045 
27 163 045 101 055 
2728 016357 045 101 055 
2729 016401 045 101 955 
$f 016454 045 101 055 
731 3 e4 4. 045 101 055 
7 g Bee § 045 101 O22 
732 01665 045 101 40 
734 016704 045 101 040 
$732 016753 045 101 040 
736 017052 045 101 055 
2737 017116 045 101 055 
$736 017200 045 101 055 
739 017225 040 040 040 
2740 
2741 


-SBITL = MOD 1.2.U.3 = INITIALIZE ERROR 
ITERR: MOV #200. . ERRNBR  ;SET ERR NBR = INIT ERR 
MOV MITER 3 ERRMSG : 
MOV #NONE ERRBLK : 
MOV ERRTYP “SET ERR TYP = DEV FIL 
MOV UNET -LSLUN “SETUP LUN FOR PRINT 
ERROR :CALL ERROR 
LL ITPRNT “CALL INITIALIZE PRINT 
RETURN RETURN 
SBITL = — MOD 1.2.U.4 = INITIALIZE DROP 
ITDROP: MOV SUTPOS,SUTDRP :SETUP SYS. UNDER TEST DROP BIT 
DODU ~=—Ss«éUNIT ‘DROP THIS UNIT FROM TEST 
RTS PC sRETURN 
-SBITL = — MOD 1.2.U.5 = INITIALIZE PRINT 
ITPRNT: MOV UNIT, R2 sSETUP TO PRINT UNIT # 
MOV #ITERUT,R1 : SETUP MSG 
CALL PRTBIS PRINT BASIC-1 ARG 
MOV 1TMSG,R1 *SETUP TO PRINT MSG 
CALL PRTBOS ‘PRINT BASIC-0 ARG 
RTS RETURN 
IT™SG: 0 sINITIALIZE MSG# 
Z /ANITIALL E ERROR/ 
ASCIZ /2A 
SC12Z fear DONE BIT AFTER BUS INITIALIZE/ 
SCIZ /%A---NO DONE BIT AFTER PROG. INITIALIZE/ 
IZ /ZNZA NO SYSTEM TO TEST/ 
SCI1Z /ZA- NO DRIVE READY/ 
12 /%A- NO SIDE READY/ 
IZ /%A- WRONG DENSITY -SINGLE DENSITY DISKETTE/ 
iz A- “TR BIT AFTER SET DENSITY CMDZN/ 
12 /ZA- NOT CAPABLE OF DOUBLE DENSITY OPERATIONS/ 
12 /%A= WRONG DENSITY - DOUBLE DENSITY DISKETTE/ 
12 /%ZA DISKETTE WRONG DENSITY/ 
12 /%A MAN, Int RVENTION REQ'D - REFORMATT 
12 /%A UNI T#ZD1ZA-REFORMATTING, DO NOT INTERRUPT2N/ 
12 /%ZA- ERROR BIT SET AFTER REFORMAT COMMAND SEQUENCE2N/ 
12 /%ZA- NO DONE BIT AFTER REFORMAT COMMAND SEQUENCE 2N/ 
12 /%A- AC LOW BIT SET/ 
17 / ->REFORMAT DISKETTE = ARE YOU SURE?/ 
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SEQ 56 


SEQ 57 


15-DEC-82 15:50 PAGE 81 


MOD 1.2.U.5 - INITIALIZE PRINT 
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SEQ 58 
HARDWARE TESTS MACRO M1200 15-DEC-82 13:50 PAGE 83 
MOD 1.3.1 = SET DATA PATTERN 
2765 .SBTTL MOD 1.3.1 = SET DATA PATTERN 
167 : PAT # ROUTINE DATA PATTERN 
769 : 0 RANDAT NO PATTERN SPECIFIED (FORCE RANDOM DATA) 
770 ; 1 DATAO ALL ZEROS 
3771 : é DATA ALL ONES 
77 : FLOATO FLOAT ZERO THRU ONE'S 
77 ae FLOAT FLOAT ONE THRU ZERO’S 
774 : S PAT125 ALTERNATING BITS IN ONE BYTE COMP IN NEXT 
775 : 6 PAT333 ALTERNATING 1°S PAIR & 0 IN ONE BYTE COMP IN NEXT 
776 : 7 RANDAT RANDOM 
2778 “NOTE: DATA PATTERNS WILL BE MODIFIED SO BYTE #0 WILL CONTAIN TRACK ADDRESS 
2779 : AND BYTE #1 THE SECTOR ADDRESS IN WHICH THE DATA IS WRITTEN. 
3780 : THE LAST TWO BYTES CONTAIN THE CHECK SUM NUMBERS. 
782 017376 042737 000377 017462 STSTPA: BIC #377,@#BRONPT ;CLEAR BRANCH OFFSET 
783 017404 005037 017744 CLR SUM “SET UP FOR ACCUMULATION OF CHECK SUM 
784 017410 005737 017750 TST PAT ‘IF NO PATTERN SPECIFIED FORCE PATTERN 7 
3785 017414 0601003 BNE I$ 
786 017416 012737 000007 017750 MOV #7,PAT 
2787 017424 013704 017750 1$: MOV PAT,R4 -GET PATTERN BITS 
788 017430 005304 DEC R4 “ADJUST FOR CORRECT OFFSET 
2789 017432 006304 ASL 
2790 017434 150437 017462 BIS8 R4,a#BRONPT s INSERT OFFSFT 
791 017440 012704 034010 MOV #DATPAT+2,R4 § :SET UP ADDRESS OF FIRST BYTE 
798 017444 013705 002252 MOV WOCNT,R5 *SETUP WORD C 
379 017450 006305 ASL ‘DOUBLE WORD COUNT FOR ADR 
794 017452 06705 034006 ADD #DATPAT.RS “ADD DATA PATTERN ADR 
2795 017456 162705 000004 SUB #4 ,R5 [ADJ. FOR CHECKSUM 
2796 017462 000777 BRONPT: BR fi “BRANCH BY OFFSET SELECTED 
2797 017464 000137 017520 JMP DATAO :000 DATA BYTE 
2798 017470 000137 017536 JMP DATA °377 DATA BYTE 
2799 017474 000137 017546 JMP FLOATO >FLOAT A 0 THROUGH ' 
2800 017500 000137 017614 JMP FLOAT :F THROUGH ALL 0°S 
2801 017504 000137 017622 JMP PATI¢3 °4 DATA WORD 
2802 17510 000137 017646 JMP PATS ; DATA WORD 
2803 017514 000137 017656 JMP R “RANDOM DATA BYTE 
2805 017520 005037 017746 DATAO: CLR DATBYT 
806 617524 004737 017704 JSR PC .LOAD ; 760 LOAD THE DATA BUFFER 
807 017 005705 TST R IF OR 
17532 001463 BEO END131 “NOT =0 , THEN 
809 017534 000773 BR PG 
Bit 017536 112737 000377 017746 DATA1: MOVB $=#377,DATBYT 
e812 017544 000767 BR PG 
B14 017546 112737 000376 017746 FLOATO: MOVB $$ #376,DATBYT sSET UP A ONES FIELD 
$B15 017554 000261 XPG: SEC SET THE C BIT TO ROTATE THROUGH THE DATA 
2816 017356 012702 000000 1$: MOV #0,R2 :CLR_R2 (CAN'T USE “CLR AS IT CLEARS “'C’’ BIT) 
817 017562 103001 BCC 2$ “BR IF THE "C'' BIT IS CLEARED 
18 17564 005202 INC R2 >SET R2 IF NOT 
19 17566 017704 2$: JSR PC,LOAD °GO LOAD THE DATA BUFFER 
©8220 017572 005705 1ST R5 “TF 
5821 017576 001442 BEO END131 “NOT ZERO THEN 


SEQ 59 
La TESTS MACRO M1200 15-DEC-82 13:50 PAGE 83-1 





1.3.1 = SET DATA PATTERN 
822 017576 000241 CLC 
: g) eT TST R2 :1S R2 NONZERO 
4 0176 0140 BEQ 3$ a 
5 0176 261 SEC sYES, SET THE “'C’’ BIT 
6 017606 1 7 017746 3$: ROLB  DATBYT 
8 , 17612 000761 BR 1$ 
B29 017614 005037 017746 FLOAT1: CLR DATBYT 
017620 000755 BR SS ee 
: 0176 112737 000125 617746 PAT125: MOVB #125,DATBYT 
017630 004737 017704 XXPG: JSR PC,LOAD 
017634 005705 TST R5 IF 
835 0176 001421 BEQ END131 “NOT ZERO THEN 
836 017640 105137 017746 C DATBYT 
837 017644 000771 BR xX ; 
3839 017646 112737 000333 017746 PAT333: MOVB #333,DATBYT 
ae oe ; m in 
842 017656 004737 004560 RANDAT: JSR PC ,RANGEN :GET RANDOM NUMBER 
284 017 : 113737 004652 017746 MOVB $RANUM,DATBYT 
844 017670 004737 017704 JSR PC,LOAD 
2845 017674 005705 TST R5 s1F RS 
2846 017676 001401 BEQ END131 “NOT ZERO THEN 
+ #4 01 7700 000766 ‘ese eooeooqa BR NR Ett US SD mH BH RANDAT = eee RBS SOs PBs S'TerVBWese sew eweeseewsevwvese Sse wwe str ewes sera FPS = 
oo Se ENDI31: RTS PC SNS Sl See 
Res ae ee te 1 GF ON 5 STE RS OBESE HB OeOSEBse aww eev Sw THESE ESTsROsT SE Oowerweweesewerei wn wes = 
aes 017704 063737 017746 017744 LOAD: ADD DATBYT, SUM : ACCUMULATE THE PATTERN CHECK SUM 
B54 017712 113724 017746 MOVB DATBYT.(R4)+  :LOAD THE DATA BUF 
2855 017716 020504 CMP R5,R4 SHAVE 124 BYTES BEEN GENERATED 
2856 017720 001401 BEQ 1$ :1F YES, RETURN 
2857 017722 000407 BR ENDLD *1F NO, RETURN TO PATTERN GENERATOR 
2858 017726 113724 017744 1$: MOVB SUM, (R4)+ 0 TABLE 
859 017730 005137 017744 COM SUM ECKSUM 
2860 017734 113714 017744 MOVB SUM, (R4) “PUT COMP CHECK SUM INTO TABLE 
2861 017740 005005 CLR R5 “CLEAR TEMP #5 - FLAG DONE MODULE 
4 017742 000207 prc RTS NES. RI MRT. 50 ohn oh Ser Sree Be SBSH PBs semMa nares SOeOweewewesvT ~ 
3864 17744 000000 SUM: 0 
§ 017746 000000 DATBYT: 0 
866 017750 000000 Pal 
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HARDWARE TESTS MACRO M1200 15-DEC-82 13:50 PAGE 85 =e 0 
MOD 1.3.1 = SET DATA PATIERN 
870 
g71 .SBTTL MOD 1.3.2 = SET TRACK SEQUENCE 
i , : SEQ # SEQUENCE 
75 : 0 NO SEQUENCE SPECIFIED (DEFAULT TO SEQ /) 
87 : 1 INCREMENT FROM OD TO ID 
87 : : DECREMENT FROM ID TO OD 
78 : INCREMENT THEN DECREMENT TRACKS 
79 : i BOUNCE BETWEEN ID AND OD 
; ‘ UNCE BETWEEN DECREASING ID & INCREASING OD 
1 : 6 STROBE BETWEEN OD AND DECREMENTING ID 
® 7 RANDOM TRACK SELECTION 
017752 005037 020634 STKSEQ: CLR TKTBPT *CLEAR TRK TBL PTR 
5 017756 005037 020642 CLR PRESTK “CLEAR PRESENT TRK 
017762 005037 020640 CLR range! sCLEAR TARGET TRK 
é 017766 11¢? 7 000177 020642 MOVB #$ #177, PRESTK “INIT PRESENT TRK TO HANDLE TRK #0 
17774 113737 020650 020640 MOVB OD, TARGET ‘INIT OD AS TARGET TRACK 
020002 005037 020646 CLR x10 ‘INIT WORDING ID AND OD LOCATIONS 
890 020006 113737 020652 020646 MOVB ID,XID *SAVE INSIDE DIA. IN TEMP INSIDE DIA. 
91 020016 005037 020644 CLR xOD “CLEAR TEMP OUTSIDE DIA 
89¢ 0020 1132 7 020650 020644 MOV8  0D,xX0D “SAVE OUTSIDE DIA. IN TEMP OUTSIDE DIA. 
893 020026 013737 020646 020636 MOV X10, TRKCNT *SET UP NUMBER OF TRACK MOVEMENTS 
894 0200 163737 020644 020636 SUB XOD. TRE CNT : 
B95 020042 005237 020636 INC TRKCNT “INCREMENT # OF TRACKS 
96 020046 2003 BGE GTTK ‘IF # OF TRACKS IS NEGATIVE, THEN 
97 020050 012737 190000 002274 MOV #100000,ERRSY :SET SYSTEM ERROR 
98 000157 020632 JMP NDTKS EXIT 
13737 d02202 020654 GITK: MOV TRKSEQ. SEQUEN “GET TRACK SEQUENCE # 
142737 000377 020126 BICB #377,a#@BRONTK :CLEAR OUT BRANCH OFFSET 
901 0076 00 737 020654 TST VEN :1F TRACK SEQUENCE 
0 102 001003 BNE “EQUALS ZERO, THEN 
903 020104 O12? 7 000007 020654 MOV #7, SEQUEN “FORCE SEQ #7-RAND 
0112 013704 020654 1$: MOV SEQUEN, R4 “GET SEQUENCE BITS 
905 O11 005304 DEC RS “ADJUST FOR CORRECT OFFSET 
2906 12 006504 ASL RG : 
2907 020122 150437 020126 BISB 4, a#BRONTK “THIS BR INST. IS MODIFIED SELECTED TRACK SEQUENCE 
0126 000777 BRONTK: BR : “BRANCH TO SELECTED TRACK SEQUENCE 
0130 000137 020164 JMP SE01 ; 
0 at 4 7 0 osée JMP SEQ : 
1 020140 137 020254 JMP SEQ ; 
2 9 144 9001 7 20872 JMP SEQ4 sBOUNCE ID TO OD 
2 020150 137 4 JMP SE05 “DECREASING BOUNCE 
14 020154 9001 7 20422 JMP SE06 * STROBE 
15 020160 000137 020476 JMP SEQ7 : RANDOM 
9 0 0164 123737 020646 020642 S01: CMPB XID,PRESTK :1F PRESENT TRACK=ID 
18 020172 001004 BNE 1 : THEN 
19 0 0174 01 Z 177777 020640 MOV #-1, TARGET : TERMINATE TABLE 
1 020206 11 137 020644 020640 1%: MOVB  XOD, TARGET “ELSE SET NEW TRACK-OUTSIDE DIA 
4 0 0212 0052 7 020644 INC XOD ‘INCREMENT OUTSIDE DIA 
903 0216 000565 23: BR NEWTRK “END SEQ] 
39 5 020220 123737 020644 020642 SEQ2: CMPB  XOD,PRESTK : 
926 020226 001004 BNE 1$ 


HARD 
MOD 


WARE TESTS 
1.35.2 = SET 
2927 020230 
38 His 
36 Ss 
3H BBS 
3 
9 8 2 
35 es 
935 6 
. | ° 62 
3F 
SP sper 
ie Ser 
2944 020306 
se Hee 
se. Se 
8 Hes 
2950 0205 
ss Be 
2955 32¢ 
$987 ce 
2958 020364 
2959 020370 
Set 83H 
3368 020404 
020410 
030412 
2965 020420 
$8 soos 
$8) se 
ois 
71 b462 
? 8 0450 
7 Bete 
74 020456 
oe 
18 Sat 
a8 sr 
38) $58 
29835 02052 
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020646 
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004652 
020646 


SEQ 61 


2=mN- 


;1F MODE 
s;NOT EQUAL TO ZERO 
; THEN CHANGE MODE 


:D0 SEQ 
sELSE CHANGE MODE 
;D0 SEQ1 


:1F MODE 

:NOT EQUAL TO ZERO 

s THEN SET NEXT TRACK=OUTSIDE DIA 
: CHANGE MODE 


“ELSE SET NEXT TRACK=INSIDE DIA 
: TERMINATE TABLE 


“TERMINATE TABLE 


13:50 PAGE 85-1 
MOV #-1, TARGET 
BR $ 
1$: MOV XID, TARGET 
DEC 1D 
2$: BR NEWTRK 
SEQ3: TST R1 
BEQ 1$ 
CLR R1 
BR SEQ2 
1$: MOV #1.R1 
BR SEQ1 
SEQ4: TST R1 
BEQ 1$ 
MOVB XOD,TARGET 
CLR R1 
BR 2$ 
1$: MOVB  XID,TARGET 
MOV #1,R1 
23: DEC TRKCNT 
BNE g 
MOV #-1, TARGET 
3$: BR NEWTRK 
SeaS: X1D,XOD 
BEQ 2$ 
TST R1 
BEQ 1$ 
CLR R1 
MOV XOD, TARGET 
INC XOD 
BR 3$ 
1$: MOV #1,R1 
MOV XID, TARGET 
DEC XID 
BR $ 
2$: MOV #-1, TARGET 
3$: BR NEWTRK 
SEQ6: cMPe X1D,X0D 
CMPB  =—s-: PRES TK, XOD 
BNE 
MOVB XID,TARGET 
DEC XID 
BR 2$ 
3$: MOVE XOD, TARGET 
1$: MOV #-1, TARGET 
2$: BR NEWTRK 
SEQ7: NOP 
JSR PC .RANGEN 
BIC #177600, RANUM 
IDCOMP: CMPB = RANUM, XID 
LE ODCOMP 


:1F INSIDE & OUTSIDE DIA 
‘THEN, IF MODE 

“CHANGE MODE 

*SET NEXT TRACK=OUTSIDE DIA 
S INCREMENT OUTSIDE DIA 

[END SEQS 

“CHANGE MODE 

*SET NEXT TRACK=INSIDE DIA 
“DECREMENT INSIDE DIA 


: SET 
; TERMINATE TABLE 







:1F 0.D. JUST DONE 


“SET TO DO 1.D. 
“DECREMENT |.D. FOR NEXT 


“ELSE SET TO DO O.D. 


ET A RANDOM NUMBER 
LEAR ALL BUT LOW 7 BITS 
— LARGER THAN ID ADDRESS 


SEQ 
HARDWARE TESTS EQ 62 


13:50 PAGE 85-2 
1.5.2 = SET 


MACRO M1200 15-DEC-82 
TRACK SEQUENCE 






984 f ¢ 763 BR SEQ7 :BR TO GET ANOTHER RANDOM NUMBER 
985 , 137 004652 020644 ODCOMP: CMB RANUM. XOD :1F RANUM SMALLER THAN OD ADDRESS 
987 0 § red P BR SEQ :BR 19 GET ANOTHER RANDOM NUMBER 
388 0 0 737 004652 020642 PRESCK: CMPB RANUM ,PRESTK -1F RANUM EQUALS PRESENT TRACK 
44 001754 BEQ :GET MANO THER RANDOM NUMBER 
990 0 0346 137 7 004652 020640 MOV RANUM, TARGET *RANUM OK PUT IT IN TARGET TRACK 
1 554 337 020636 DEC TRKCNT 
99 0560 Bt BNE 
993 020 62 O12 177777 020640 MOV #=1, TARGET s TERMINATE TABLE 
: K 
994 0570 000400 1$ BR NEWTR 
72 012702 033553 NEWTRK: MOV #TRKTBL=1,R2 
3997 6 005039 $30634 Ine TatBer 
998 963 02 020634 ADc TKTBPT,R2 
11 ie 0 0640 MOVB TARGET, (R2) 
12 00573 0640 TST TAR 4 
1 16 1 5 BM! ENDTKS 
é 0 1137 020640 020642 MOVB _— TARGET, PRESTK 
0 $ 000137 020126 JMP BRONTK 
é 0 000207 ENDTKS: RTS 
020634 000000 TKTBPT: 0 s TRACK TABLE POINTER 
020636 000000 TRKCNT: O *TRACK C€ 
020640 000000 TARGET: 0 s TARGET TRA tx 
0 2 000000 PRESTK: 0 “PRESENT TRACK 
10 4 000000 XOD: 0 =X OUTSIDE DIA 
11 020646 000000 XID: 0 *X INSIDE DIA. 
ie 020650 000000 OD: 0 sOUTSIDE DIA. 
3013 020652 000000 ID: 0 s INSIDE DIA. 
3014 020654 000000 SEQUEN: 0 :SEQUENCE # 
4 . 3-2 awa ee END MODULE SS SSSSSSSSSSSSSSSSSSSSHSSESESSSSESSGeooaeosee¢ 
aie 
19 
$020 -SBTTL MOD 1. 3.3 = CLEAR STATISTICAL TABLES 
> 2 
3055 020656 012701 007314 CLRSTA: MOV #READSC,R1 :SET UP BEGINNING ADDRESS 
3024 020662 012702 011240 MOV #ENDST,R2 >SET UP TABLE LENGTH 
5 0666 005021 BDA133: CLR (R1)¢ ; CLEAR ADDRESSED MP OCATION 
36 9 0201 2 CMP Ri Re 
067 13 BNE BDA133 ‘Do UNTIL LAST ADDRESS DONE 
28 020674 000207 Ne PC : E TURN 
29 +. o 3 oeceo END MODULE SSS SSS SSSSSSSSSSSSESESSSSSESESSESESOSESSESSESSE SESS 


SEQ 63 
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TICAL TABLES 


200 
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MOD 2.2 = GET A DRIVE 


$f utoon ive 0 

s IF UNIT/SIDE UNDER TEST (uUT) 

sEQUALS 1 

FD OF SYS. UNDER TEST UNIT/SIDE=1 
:SET TEST OF SYS. UNDER TEST UNIT/SIDE=0 
a 1 SELECTED FOR TEST 

sSET UNIT UNDER TEST TO DRV #1 

:BR TO END IF ‘E’ 

:BR TO THEN ‘E’ 

: IF UNIT/SIDE UNDER TEST (UUT) 

sEQUALS 1 

SEa' ght ts ¥L,8%5- DER TEST UNIT /SIDE 1 
:SET TEST OF SYS. UNDER TEST UNIT/SIDE 0 
| 0 SELECTED FOR TEST 

sSET UNIT UNDER TEST TO DRV#O 

:BR TO END IF ‘E° 

sSET UNIT UNDER TEST TO DRVA1 

3;GET UNIT UNDER TEST 

sDOUBLE IT 

:SET WUT OFFSET 

:GET UUT UNIT # FOR PRINT 

:SET UNIT=PRINT UNIT @ 

sRETURN 


TSTSUT: 0 
sMOD 2.2 


NOP 
BIT Hy T 
BNE 1FD 
BIT #2 yuT 
BEQ EL 2 
MOV #10, TSTSUT 
BR 1F C22 
MOV #2, TSTSUT 
BIT TSTSUT, SUT 
BEQ ELC22 
B15 #1,UUT 
BR EE 
tes 
BEQ EL 692 
MOV #4, TSTSUT 
BR 1FE22 
MOV #1,1STS 
BIT TSTSUT. SUT 
eee 
BR FIED? 
BIS #1,UUT 
MOV uuTR4 
ASL R4 
MOV RG UUTOFF 
ADD #UTOO,R4S 
MOV (R4},UNIT 
RTS Pc 

eeocce END MODULE evceon 


SEQ 68 


SEQ 69 
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CNSCLC: .WORD 
CNTKLC: .WORD 


SEEK . 
DRVTST: .WO 
WOCT: 


DOT: 


W 
DRVFN: _.WORD 
;MOD 2.3 --==- 


;CURRENT DRV SECTOR TABLE 


;CURRENT DRV TRK TABLE 


0 
0 
0 
0 
0 
0 
0 :CURRENT SECTOR LOCATOR 
: CURRENT TRACK LOCATOR 
0 
N 


SEQ 71 


SEQ 72 
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ELF231: MOV 
MOV 


B 
ELD231: MOV 
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mn 
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SEQ 75 


3) ;SET DRV_NXT SEC = DRV START SEC 
;SAVE DRV NXT SEC 


38 ND 
CFG SET START SEC FLAG 
“BRANCH TO END GET SECTOR 
:CALL MOD 253.144 - SET DRIVE SECTOR DONE FLAG 


C 
;CLEAR UUT STARTING SECTOR 
ee ;PASSUP UNIT SECTOR DONE 


;RETURN TO MOD 2.3 
REGISTERS & TABLES oneeennnn nnn nnn nnn nn nnn nnn nnn nnnnn- 


VVC -MYVrSMmamwDwzD 
‘at pt > lal! + 4 43. 


T 
TING SEC FLAG 
SECTOR 


sUUT NEXT SECTOR 


;UUT SECTOR DONE FLAG 
sSECTOR INTERLEAVE 
;CURRENT SECTOR UUT 
END MODULE ewe wee ee eeeeeeeeseeeeeeesoeeeeeeoeeoeeeoeese 


.SBITL MOD 2.3.1.A - SET SECTOR DONE 
STSCDN: BIT #1,uUT -JF DRIVE #1 DONE 
BEQ 1 : THEN 
gis #2,.BDVSCD :SET DRIVE #1 SEC DONE FLAG 
1$: BIS #1, BDVSCD “SET DRIVE #0 SEC DONE FLAG 
2$: RTS * RETURN 
:MOD eS ooececoe END MODULE Seeeeees ee Seeeeeseeeennaneooesenoonanasecesooeses 
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GETTRK: 
1FH232: 


DBM MDWVC = DDD Ze SHS 
Dm KQOOK AZM Ke Teo 


Br DWwDrorry 


2 
RK ,MAXTRK 


RK, CURTRK 
RK ,MINTRK 


CMNAB- OM aMiA Da DVWIwDa-Da-—B WDC B--— -— - BSN O-— 
aug 


ro = 
SaSzaoxno 


MD wee WM wD 
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ae 


SEQ 74 


S 
AS SET BY OP 
K IS 


Te ee Fee ee ee ee ee fe | 
fT. oe 
wM-- 


1 

1 
RENT TRK 

UNDER TEST INDICATOR 
ADDRESSING WORDS 

K DONE FLAG 

NT TRACK FLAG 

THEN (USE SELECTED TRK SEQ) 
TRACK TABLE LOCATOR BASE ADR 

RK. ‘gn LOCATOR ADR 
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oso ouv2Zzar 


MOVOVIMMWMWM Dwr--Grc> 
mm 


RS rm OMmmmmmemmmem “mer 
— -P 


~— oo ™ 








zDvomwme 
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CK TABLE ADR 
TAB. ADR. THIS DRIVE 
T DRV. TRK. TAB. LOCATOR 
: RV. TRK. TAB. LOCATOR 
:SAVE CURRENT TRACK 
; INCREMENT TRACK TAB. POINTER 
IF NEXT TRACK 


[EQUALS -1 

“THEN SET TRACK DONE FLAG 

RESET DRY. TRK. TAB. LOCATOR ADR. 

“IF CURRENT TRK > OR = MAX TRK (0. D.) 


s THEN 
:SET CURRENT TRK = MIN TRK 
sIF CURRENT TRK > OR = MIN TRK (0.D.) 


“GET CURRENT TRACK 
“INCREMENT CURRENT TRACK 
sIF CURRENT TRK #1 < MAX TRK (1.D.) 


$ N 
:BRANCH TO END IF ‘D° 
sIF CURRENT TRK #1 = MAX TRK 


;SET TRK DONE FLAG 
;SAVE CURRENT TRK #1 = CURRENT TRK 
;BR END OF MOD. 
;IF TRK MAX = TRK MIN 
;SET TRK DONE FLAG 

ET CURRENT TRK = MIN. TRK (0.D.) 
AVE TRACK DONE FLAG 
sCLEAR TRK INCR FLAG 


Wee MOQOomc 


PS] 
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Mm 
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6 5 © PSSOOCSCOCSSSESSOOSSSSESOSSSSS OSS SSESESSSESEEESSEESEEEEE68EE S2S8SE08C00R00000008080° 
& $ 4 9 000 TRKDNF: .WORD 0 s TRACK DONE FLAG 
& 4 0 000 MINTRK: .WORD “MINIMUM TRACK = 0.D. 
8 4 000 MAXTRK: .W 0 *MAXIMUM TRACK - : 
6 4 0 TRKINC: WORD ‘INCREMENT TRK FLAG 
4h 0 0 CURTRK: .WORD 0 “CURRENT TRACK 
1 024242 000000 TKTL: WORD 0 *DRV TRK TABLE LOCATOR 
4 g 4244 000000 . WORD 
4246 000000 -WORD 0O 
0 4250 990000 WORD 0 
§ 024252 000000 INITTK: .WORD 0 s INITIALIZE TRK FLAG 
6 ;MOD 2.3.2 enna = END MODULE wees eereee wee ewe mn wtrewronwwwe mower e reer nee een ewe ewe 
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3673 
Be 
a8 8 4406 015701 032038 
$7 4412 062701 0 989 
78 024416 910157 f 0 
Bite eee HNN ste 
1 0244 0137357 065084 0 2054 
024444 0047357 0 gone 
8 ret 8 of 7 040000 023530 
5 0 2280 000 ; 025016 
ey: 024464 032737 000010 023530 
3687 024472 001043 
3688 srete 032737 000004 02535350 
3689 024502 001047 
3690 8 4504 oie! 7 000690 0253350 
ed 4512 015737 0 6 025022 
a 
94 0245 0337 7 002 0235550 
95 024540 001004 
rs 0 <2 ON eLas 034006 025022 
3098 ; 4552 01 137 034406 023086 
3699 024 12737 000200 025330 
$508 0 +297 13737 025052 025024 
i Stee Sea Sse 
3708 0 meet: 032737 000004 023330 
704 024610 001455 
3705 024612 032737 000002 023550 
3706 024620 003933 
3707 024622 012737 000200 025350 
3708 ase ete 025040 052055 
3709 024636 ot tA ? 1777 025022 
3710 rece 015737 0250352 025024 
711 024652 004737 025042 
at 024656 013737 062078 Oc 20¢8 
713 0 mre 2 042737 177600 85 O66 
714 0 7 2 Ot ee 7 0002 025 
715 8 4 4 01 ele Ose 32 025024 
71é 0247 004737 02504 
717 024712 see 7 
718 024714 012737 gooey 062338 
719 024722 Og) ? 035544 025022 
720 0247 13737 025032 025024 
y 1 Sth Ons 025042 
co alate 
3755 024754 12737 000001 025026 
3/86 024762 000413 
727 0247 01953 090700 022339 
3728 024772 01 ats 025030 0 286 
3729 025 0135737 025032 025024 
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~SBTTL 


OTDVFN: 


1FA234: 


THA234: 
IFH234: 


IFK234: 


EIK 


IF C234: 
IFD234: 
ELH234: 


ELD 


IFE234: 
THE 234: 
ELE2354: 


aa 


est 


SEQ 77 


MOD 2.3.4 = OUTPUT DRIVE FUNCTION 


CSADR,R1 
#2,R1 


R1,DBADR 
#DNBIT,RDYWD 
WDOT,WRDS 
CSADR, ADRS 
fSwD 


L 
#TRBIT,RDYWD 
WOCT.WRDS 
DBADR, ADRS 
PC ,OUTSWD 


ELK2 
ADATPAT,WRDS 
E1K234 
#DATBUF ,WRDS 
#TRBIT -ROYUD 


PC OUTSHD 
ies 

2 
Pe oT 
#TRBIT,RDYWD 


E16234 
#TRBIT.RDYWD 
#XERUUT ,WRDS 
DBADR. ADRS 
PC Out Sup 
E}e 4 
#2,WD0T 


ELE234 
#1 ERSTAT 


Ej 
#TRBIT,RDOYWD 
VALWD ,WRDS 
DBADR ,ADRS 


;GET tee REG ADR 
:ADD 2 TO ADR 
;SAVE AS DATA ADDRESS 


“READY TEST WD (PASS TO 3.3.4.1) 

“WORD FOR OUTPUT (PASS TO 2.3.4.1) 
“ADDRESS OF OUTPUT (PASS 10 2.3.4.1) 

“OUTPUT FUNCTION WD (FW) DO 2.3.4.1) 

Z1F FUNCTION IS 

{NOT AN INITIALIZE” (FW B11414=0) 

Z1F FUNCTION IS 

“READ, WRITE, FILL, EMPTY’ (FW BIT#3=0) 

“AND THEN IF FUNCTION IS 

:"EMPTY, FILL’ (FW BIT#2=0) 

*THEN SET OUTPUT READY TEST WORD (PASS TO 2.3.4.1) 
SAND SET WORD FOR OUTPUT (PASS TO 2.3.4.1) 
“AND SET ADDRESS OF OUTPUT (PASS TO 2.3.4.1) 
OUTPUT BASE ADDRESS WORD DO 2.3.4.1 

TF FALL (FW BIT#1=0) 

“SET DATA PATTERN ADR (PASS TO 2.3.4.1) 
"eR TO END IF °K* 

-SET DATA BUFFER ADR PASS TO 2.3.4.1) 
*SET OUTPUT READY TEST WORD (PASS TO 2.3.4.1) 
*ADDRESS OF OUTPUT PASS TO 2.3.4.1) 
[OUTPUT WORD COUNT WORD DO 2.3.4.1 
“BRANCH TO END IF °H" 

31F FUNCTION WORD IS . 

>"WRITE D.D" OR “READ E.C’’ (Fw BIT #2=1) 

“THEN, IF FUNCTION IS 

**WRITE D.D'', THEN (FW BIT#1=0) 

*SET OUTPUT READY TEST WORD 

: WOVE TRACK AND SECTOR ADDRESS 








TO SECTOR ADDRESS 
TPUT 


: T 

:FORMAT TRACK ADDRESS 

SET OUTPUT READY TEST WORD 
ADDRESS OF OUTPUT 

OUTPUT TRACK ADDRESS 


RR. CODE A 
ADDRESS OF OUTPUT, RXDB 
"O/P BASE ADD FOR ERR. CODE 


@e 

J 
[=] 
= 
rm 


ON IS 

s“READ STATUS’ (FW BIT#1=1) 
s THEN-SET ERR STATUS FLAG 
“SET CUTPUT READY TEST wD 
“VALIDATION WORD 

“ADDRESS OF OUTPUT, RXDB 


SEQ 78 
“ie TESTS pur on M1200 15=DEC-82 15:50 PAGE 107-1 


2.3.4 = OUTPUT DRIVE FUNCTION 
37 1 035042 JSR PC ,OUTSWD OUTPUT VALIDATION WORD 
7 4737 104 E182 4: CALL WATCH ; CALL MOD U.2 WATCH DOG 
7 18 END234: NOP 
, $7 RTS PC RETURN TO MOD 2.3 
735 025 S WRDS: 0 :MODULE 3. 4.1 OUTPUT WORD 
7 2 4 AD 0 :MODULE 4.1 OUTPUT ADDRESS 
7 6 ERSTAT “MODULE 0.0 ERR STATUS READ FLAG 
7 5 9 tite VALWD: 111 s EXTERNAL VALIDATION wD (SET DENS-ASCII “'I'*) 
7 5 00 DBADR: 0 "RX DATA BUFFER ADDRESS 
740 3 000 CSADR: 0 :RX CONT/STATUS ADDRESS 
741 400 TRKADR TRACK ADDRESS 
749 5040 000000 SECADR: 0 SECTOR ADDRESS 
74 ;MOD ao. a 4 seocece END MODULE SS OSSSSSSSSSSSSSSSSSSSSSSSSSSEESEOESOEESEOSOZESE 
744 
745 
ing 
748 .SBTTL MOD 2.3.4.1 = OUTPUT SINGLE WORD 
He aa taal 
yes 25042 00240 OUTSWD: NOP 
373¢ 5044 013737 025034 025332 V CSADR,CSRADR SET C&S REG ADR 
75 5052 013737 025330 025330 MOV RDYWD,RDYWD “OUTPUT READY WORD (PASS | ro DELAY) 
754 025060 004737 025230 JSR PC,DELAY :DELAY FOR READY DO DELA 
755 025064 033777 025330 177742 BIT RDYWD,,@CSADR 3 IF READY, 
756 025072 061403 BEQ HEN 
757 025074 013777 025022 177722 MOV WRDS,@ADRS “MOV WORD TO ADDRESS 
758 025102 000207 ED2341: RTS PC “RETURN TO MOD 2.3.4 
3759 :MOD Se aeeeseeo END MODULE. 282262 eeeeoeeseeeesesoeesooeeeoooueceesce 


HARDWARE 
MOD U.2.5. 
76 


? 
7 
77 
77 
774 
775 
77 
77 
77 
77 
80 
5 


SEN SORRANRLSTHORORKONSSR 






~~ 
233 


BSasss2 





005037 
13703 

7 
27 
4 


3 


Owoc— 


Row 


SE NINE AN NINO NW 


s 
— 
Ww 


7 


~My 
Wm & 
ono 


~~ 
Primo wor 


a ee | 


025226 


000040 
010000 


000040 
020000 
040000 


025330 


TESTS MACRO 1200 15=-DEC-82 
4 = WATCH DOG TIMER 


177672 
002276 


177642 
002276 
002274 


000000 


000052 
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;MOD U.2.3.4 =<" END MODULE ------------------------------------------- 


.SRTTL MOD U.2.3.4 
WATCH: CLR DNFLAG 
SETPRI #PRIOO 
MOV DK, R4 
BAUZ34 MOV DLY,R3 
1BU234: TST DNFLAG 
BEO LBU234 
1CU234: BIT #ONB1T .@CSADR 
BNE 234 
MOV #B1T12,ERRTY 
BR KU234 
L8uU234: DEC RQ 
UDU234: BNE 1BU234 
YAU 34 BNE BAU234 
1EU234: git #ONBIT,@CSADR 
Bis i 113, ERRTY 
LEU234: BIS #BIT14, ERRSY 
XU234: SETPRI #PRIO6 
RTS 
Dx: 4G 
DLY: 100000 
DNFLAG: 0 
.SBTTL MOD U.2.3/4 DELAY 
DELAY: 
IFAU23: C RDYWD, #0 
EQ xU23 
MOV RYDK,R4 
BDAU23: MOV RYDLY,R3 
BDBU23: BIT RDYWD,@CSRADR 
BNE xu23 
DEC R 
BNE BDBU23 
DEC R4 
BNE 2DAU23 
BIS #40000, ERRSY 
MOV ACSRADR, CSRUUT 
ADD #2,CSRA 
MOV aC SRADR,ESRUUT 
xu23: RTS PC 
RYDX: 
RYDLY: 100000 
RDYWD: 
CSRADR: 0 


MOD U.2.5.4 ----- END MODULE 


~ WATCH DOG TIMER 


A 


Uz 
men 2 


AY 
RRUPTS DONE FLAG 
THEN 


za 20UN 
permet” pared +4 
m ~—- m 

@w 


T, THEN 
RR, oi DONE ERROR 


o 

me 

m 

ze 
meoft) —4 cd 


:DELAY MULT 
‘DONE FLAG 


SIF READY WORD 

“EQUALS ZERO, THEN BR TO END IF ‘A’ 
“SET READY DELAY MULT 

“SET READY DELAY 

‘IF READY 

‘EQUAL To ‘1'' , THEN BR TO END IF ‘B' 
‘ELSE DECREMENT DELAY 

"DO UNTIL R3=0 

DECREMENT DELAY MULT. 

“DO UNTIL R4= 

*SET TIME OUT ERR 

“GET UUT C&S REG 

“SET CSRADR TO DB REG 

‘GET UUT E®S REG 

“RETURN TO CALLING MOD 

sREADY MULTIPLIER 

“READY DELAY 

READY WORD - TEST FOR DEVICE READY 
“C&S REG OF UNIT- WAITING FOR 


DONE FLAG 
OCESSOR PRI=0 = ALLOW INTERRUPTS 
tat MULT 


SEQ 79 


HARDWARE TESTS eo M1200 15-DEC-82 
MOD U.2.5/4 DEL 


19 
0 
1 
§ 34 013737 5410 027070 
4 rf} o137 7 6206 
5 4 13737 025410 030622 
$ 54 oF i & 
é 2 Bae! : 020000 025410 
HE BBE acre 
1 402 004737 027230 
3 406 000207 
fe 025410 000000 


13:50 PA 


GE 111 


~SBTTL MOD 2.4 = EVALUATE TEST RESULTS 


sPASS TEST Ae ee 
sCALL MOD 2.4.2 = EVALUATE DRIVE STATE 
sPASS TEST FUNCTION 
sCALL MOD 2.4.4 = EVAL UNIT ERR CODE 
£ CK BIT 
7iS $ THEN 
3; CALL D 2.4.1 = EVALUATE DATA 
:PASS DRIVE TEST 
> CALL MOD 2.4.3 UPDATE DRIVE STATISTICS 


< 


SEG 80 
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MOD 2.4.1 = EVALUATE DATA 


B38 .SBTTL MOD 2.4.1 = EVALUATE DATA 
0 a 
1 025412 005037 026054 EVDATA: CLR DAERCT sCLEAR DATA ERR COUNT 
iS ans susan se ck pAERET. «CLEAR DATA ER 
4 12737 0 9001 026062 MOV #1. PTHEAD “SET PRINT HEADER FLAG 
s 4 : 1 tt 02252 MoV WOCNT.RI “SAVE WORD COUNT 
6 436 16 ; 1 990001 SUB #1,R1 ‘SUBTRACT 2 TO GET CHECKSUM 
442 012702 034006 MOV #DATPAT.R “GET ADDRESS DATA SOURCE 
8 0 446 01 70 034406 MOV #DATBUF .R “GET ADDRESS DATA BUFFER 
43 1 ADD R1,R *CAL. ADDR SOURCE CHECKSUM 
30 025454 06010 ADD R1-R “CAL. ADDR BUFFER CHECKSUM 
1 025456 12121 1FA241: CMPB  (R2),(R3) °F CHECK SUMS 
32 5460 0 1407 BEQ ELA241 “NOT= THEN 
5 546 032737 000002 021452 IF1241: BIT #2 -ERTSAV “IF CRC ERR 
54 0 54 0010 3 BNE ELA241 “NOT SET, THE 
55 02547 052 7 000004 002276 BIS #64, ERRTY °SET CHECKSUM ERR 
56 025500 00 Q 7 026052 ELA241: CLR BY TNUM “CLEAR BYTE NUMBER 
57 025504 16 Ot 000001 SUB #1,R1 “CAL. TOTAL BYTE COUNT-LAST Two 
38 6 5510 010137 926050 MOV R1.BYTCNT “SAVE BYTE COUNT 
859 025514 012701 034006 BDA241: MOV #DATPAT,R1 “SET TEMP#I=DATA SOURCE BEGIN ADR 
5520 012702 034406 MOV #DATBUF ,R2 “SET TEMP#2=DATA BUFFER BEGIN ADR 
1 35 4 063701 02605¢ ADD BYTNUM,R1 :CAL CURRENT BYTE AD 
‘ 5 0 3702 02605 ADD BYTNUM,R2 “CAL CURRENT BYTE ADDR (BUFFER) 
035534 12111 CMPB ss (R21) , (R2) *IF SOURCE BYTE & BUFFER BYTE 
3 1302 BEO ELB241 :NOT EQUAL 
5 025540 0052 026054 INC DAERCT ‘INCREMENT DATA ERR COUNT 
5544 052737 000010 002276 BIS #10, ERRTY “SET DATA ERR-ERR TYPE 
3552 042737 000004 002276 BIC #6, ERRTY >CLR CK SUM ERR-ERR TYPE 
5560 023727 026052 000002 IFC241: CMP BYTNUM, #2 :IF BYTE #0 OR #1 
3366 : BGE 1FE241 * THEN 
025570 005737 026052 1FD241: TST BYTNUM “IF BYTE #0 
0 5574 001 3 BNE 1FE241 ; 
576 7 000001 026046 BIS #1, SEEKCK *SET SEEK ERR-ERR TYPE 
025604 023727 026054 000012 IFE241: CMP DAERCT, #12 ‘IF OVER 10 DATA ERRORS 
025612 1034 BLO THE 241 : THEN 
025614 032737 000020 002204 IFfF241: BIT #20 SUREG “IF PRINT ONLY 10 DATA ERROR FLAG 
025622 001047 BNE ELF O41 "1S NOT SET, THEN 
025624 111137 026056 THF241: MOVB  (R1),DATASB 
B78 0256 MM 7 026060 MOVB = (R2) .DATAWS 
B79 0256 5737 026062 1FM261: TST PTHEAD :IF PRINT HEADER 
38 3640 1420 BEQ EIM241 *OK 
3 5642 005037 026062 PTHEAD “CLEAR PRINT HEADER 
uF 564 PRINTB #DMSG1,UNIT, TRACK, SECTO 
Bg 0 0 E1M241: PRINTB #DMSG2.BYTNUM,<B,DATASB>, <B, DATAWS> 
¥ 74 000 40 EIF241: NOP ; 
88S 025744 00 026052 ELB241: INC BYTNUM “INCREMENT BYTE # 
B86 0 3730 5337 026050 DEC BYTCNT “DECREMENT BYTE COUNT 
35 : 754 3 7 026050 TST BYTCNT :DO UNTIL BYTE COUNT 
BBB 025760 955 BGT BDA241 “EQUALS 
B89 025762 005737 026046 IFJ241: TST SEEKCK “IF DISK SEEK ERR 
8S 3766 1413 BEQ END241 :1S SET AND 
: 57 2737 000010 002276 IFK241: BIT #10, ERRTY “IF DATA ERR 
B92 025776 001 7 BNE END241 “NOT SET AND 
B93 026000 032737 000002 021452 IFL241: BIT #2 ,ERTSAV “IF CRC ERR 
026006 001003 BNE END 241 “NOT SET 





Q 
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3895 0 6010 05 737 000001 002276 BIS #1, ERRTY ;THEN SET SEEK ERR 
96 026 16 00 END241: NOP 
97 026 ; 031452 CLR ERTSAV “CLEAR ERR TYP SAV 
98 026024 9 5 034406 MOV RDATBUE RS :GET BEGIN oF DATA BUFFER 
99 026 1 704 000200 MOV #126. JRA :SET WORD LENGTH OF TABLE 
900 4 00 BDB241: CLR (R5)4 “CLEAR WORD IN DATA BUFFER TABLE 
901 0260 05 ; DEC RG “DECREMENT WORD COUN 
908 6040 005 04 TST 4 *D0 UNTIL 
903 026042 001374 EDB241: BNE BDB241 ALL TABLE WORDS ZEROED 
904 026044 000207 RTS C * RETURN 
396 026046 000900 SEEKCK: 0 sSEEK CECK FLAG 
907 0 6050 000000 BYTCNT: 0 “BYTE COUNT 
0 605 000000 BYTNUM: 0 “BYT R 
909 026054 000000 DAERCT: 0 “DATA ERR COUNT 
910 0 6056 000000 DATASB: 0 ;DATA SHOULD BE 
911 0 000000 DATAWS: 0 AS 
3912 026062 000000 PTHEAD: 0 PRINT HEADER FLAG 
3914 026064 045 116 045 ®MSG1: .ASCIZ /ZNZA UNIT#ZO1ZA TRK#ZD3%A SECHZD2ENZA BYTE#ZS2%AGOOD%S6%ABAD/ 
$516 026161 045 116 045 DMSG2: “ASCIZ 7 “NZS 3Z03%S22B82%S2288/ 
917 :MOD 2.4.1 eesece END MODULE SeSeeeeeSe SSO OSOOSSoooooooooonooooeoeeo 
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39 : SBTTL MOD 2.4.2 = EVALUATE DRIVE STATE 

9 : 026 013705 002236 EVDVST: MOV UUTADR,RS 

9 0 6212 013737 09 46 027072 MOV CSRUUT.CSREV GET COMMAND & STATUS LAST OP UUT 
924 026 013737 0 50 027074 MUV ESRUUT.ESREV :GET ERROR STATUS LAST OP UUT 
925 026 00 0 7 033544 CLR XERUUT “CLEAR EXTENDED ERROR CODE LOCATION 
9 ’ 026 032737 000040 027072 IFA242: BIT #40, CSREV : IF DONE NOT 

927 026240 0010 : BNE 1FBe4 *SET THEN 

928 026242 01271 040000 MOV #4000 ) : ISSUE PROG INIT TO UUT 

929 026246 013737 0022 6 025332 MOV UUTADR,CSRADR :SET CSR ADR 

9 0 6 54 ot 737 09 040 025330 MO #ONBIT,RDYW “SET DONE TEST 

93) 62 947 7 025230 CALL DELAY “WAIT FOR TR 

9 é 026266 032715 000040 1FC242: BIT #40, (RS) “IF DONE NOT 

933 026272 001005 BNE ELCO4 *SET THEN 

934 026274 052737 000010 002274 BIS #10, ERRSY >SET NO DONE ON INT-SYS ERR 
935 026302 000137 027064 JMP END 24 “BR TO END 

936 0 6306 113701 927070 ELC242: MOVB -FUNEV,R1 “GET DRIVE FUNCTION 

937 02631 042701 177770 BIC #177770,R1 >CLEAR ALL BUT FUNCTION 

938 0 6316 050137 002274 BIS RI ER } *SET NO DONE ON FUNCTION-SYS ERR 
3939 026322 000137 027064 JMP- END242 :BR TO END MOD 

3940 0 6326 004737 027076 1fFB242: CALL EVDVRE “CALL MOD 2.4.2.1 EVALUATE DRIVE RESPONSE 
3943 026332 005737 002274 TST ERRSY “JF SYS ERR 

362 0 6336 001463 BEO 1fG242 “NOT=0 THEN 
3943 026340 032737 000001 002234 BIT “i, :IFDRVA1 UNDER TST 

3944 026346 001404 BEO 1$ * THEN 
3945 026350 012737 000020 027066 MOV #20, EVCMD -SET CMD TO DRV#1 
3946 026356 000402 BR 2$ BR 

947 026360 005037 027 1$: CLR “SET CMD TO DRV#O 
3948 026 090737 000013 027066 2$ BIS *SET READ UUT ESR IN CMD 
3949 0 6372 053737 002242 027066 BIS *SET DEN FOR CMD 
3950 0 6400 013715 0270 MOV sREAD UUT E 
3951 026404 013737 002236 025332 MOV >SET CSR ADR 
395 026412 012737 40 025330 MOV =SET DONE BIT 

953 026420 004737 025230 CALL * CALL 
3954 026424 032715 000040 1FM242: BIT :1F DONE BI 
3955 0264 001005 BNE “NOT SET THEN 
3956 026432 052737 200 062274 BIS *SET NO DONE BIT (SECONDARY PROBLEM) 
3957 026440 000137 027064 JMP *BK TO END 

958 026444 0932715 IFD242: BIT *1F ERR BIT 

959 026450 001403 BEQ SET 

960 0 6452 057 100060 002276 BIS “ERR BIT = ERR TYPE 

961 026460 013701 002236 IFE242: MOV “GET UUT ADR 

962 6464 062701 902 ADD “CAL DBR ADR 

96% 026470 032711 00020 BIT “IF DRV RDY BIT 

964 026474 001102 BNE “EQUALS 

965 026476 052737 000040 002274 BIS :SET DRIVE NOT RDY-SYS ERR 
966 026504 000561 BR :BR TO END IF ‘E 

967 026506 032737 002021 027074 IFG242: BIT “IF ANY ESR ERR BIT SET 

968 026514 001410 BEQ : THEN 

969 026516 032737 100000 027072 1Ff1242: BIT #100000,CSREV :IF UUT ERR BIT 

970 026524 001010 BNE 1FJ24 “NOT=1 THEN 

971 026526 052737 040000 002276 BIS #40000,ERRTY :SET MISSING ERR BIT 

972 65 000450 BR iF 4 “BR TO IF ‘L' 

97% 026536 032737 100000 027072 IFH242: BIT #100000.CSREV :IF UUT CSR ERR BIT 

974 026544 001456 BEQ 1FN24 “EQUALS 1 THEN 

975 026546 013701 025410 1FJ242: MOV TSTEV._RI sot? TEST FUNCTION 

976 026552 0462701 177774 BIC #1777746,R1 “CLEAR ALL BUT TWO BOTTOM BITS 
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4070 .SBTTL MOD 2.4.3 = UPDATE DRIVE STATISTICS 

407 , 

cork 7230 013737 027626 030342 UPDVST: MOV TSTCK,FUNTY :PASS TEST FUNCTION TO UPDATE SEC CTR 
4074 0 7 3 O9e737 880516 ALL _—saUPSECT “CALL UP DATE SECTOR CONTENTS 

4075 027242 032737 000002 027606 1A243: BIT #2, ETSAV “IF ERRTY SAVE 

4076 027250 001405 BEQ EA0G3 “HAS CRC ERR BIT SET, THEN 

4077 02725 0047 ? 027722 CALL -UDCRST “CALL UPDATE CRC STATISTICS 

4078 0 725 5037 027606 CLR ET SAY “CLEAR ERR TYPE SAVE 

4079 027262 000457 BR 1624 “BR TO IF °G° 

4080 0 7 Ot 132 002276 027606 £A243: MOV ERRTY,ETSAV “SAVE ERR TYP ==> ETSAV 

4081 027272 013737 002276 027614 MOV ERRTY.STERRG § :GET ERR TYP ==> STAT ERR REG 

4082 027 005037 027616 CLR STCNTR “ZERO STAT COUNTER 

4083 027304 032737 000002 027614 10243: BIT #2. STERRG “IF ERR IS 

4084 027312 001405 BEQ BF D4 *CRC, THEN 

4085 027314 042737 006002 027614 BIC #6002,STERRG  :CLEAR CRC, RD, & WRT ERR BITS OF STAT ERR REG 
4086 027322 00024 1 BF243: CLC [CLEAR CARRY BIT 

4087 027324 37 027614 ROR STERRG “ROTATE RIGHT STAT ERROR REG 

4088 027330 10 36 18243: BCC EB243 71F CARRY BIT SET, THEN 

4089 027332 013701 027616 MOV STCNTR,RI *GET STAT COUNTER 

4090 027336 006301 ASL R1 *& DOUBLE FOR WORD ADDRESSING 

4091 027340 062701 027630 ADD #ETTAB.RI “CAL. CLASSIFICATION WORD-ADDRESS 
4092 027344 011137 027620 MOV (R1), CLASWD “GET CLASSIFICATION WORD 

4093 027350 011102 MOV (R1).R2 *GET CLASSIFICATION WORD-TO FIND LOG OFFSET 
4094 027352 000302 SWAB sé “GET CLASSIFICATION WORD UPPER BYT 
4095 027354 00630 ASL R2 s@=SHIFT LEFT TO GET LOG REG OFFSET (LAST 6 BITS) 
4096 027356 006302 ASL R2 s@=SHIFT LEFT AGAIN 

4097 027 04270¢ 177004 BIC #177004 ,R2 “CLEAR UNWANTED BITS 

4098 027 01025 027622 MOV R2,LOGOFF ‘SAVE ERROR LOG OFFSET 

4099 0 7370 005711 1€243: TST cri) -1F ERR TYP CLASSIFICATION WORD 

4100 027372 100403 BMI LC243 *TYPE=SOFT, THEN 

4101 027374 004737 030072 CALL UDSt St “CALL UPDATE SOFT ERROR STATISTICS 
410¢ 027400 000402 BR £B243 :BR TO END ‘B° 

4103 027402 004737 027670 C243: CALL §§ UDHDST “CALL UPDATE HARD ERROR STATISTICS 
4104 027406 005237 027616 £B243: INC STCNIR > INCREMENT STAT COUNTER 

4105 0 rol 022 37 000020 027616 UF243: CMP #16. ,STCNTR 7DG UNTIL ALL 16 

4106 0 743 101340 BHI BF 24% “BITS ARE DONE 

4107 027422 013703 033544 16243: MOV KER T.R3 “GET EXTENDED ERROR CODE 

4108 0 7486 042705 177400 BIC #177400,R3 [CLEAR UPPER BYT 

4109 027432 005703 TST R3 :JF EXTENDED ERROR CODE 

4110 027454 001410 BEO 1H243 :NOT= EN 

4111 027436 162703 000010 SUB #10,R3 “ADJ ERROR CODE # FOR LOGGING 

4112 027442 012702 007604 MOV . #ECLOG,R2 “GET LOC OF ERR CODE LOG 

4112 027446 302 ADD R3_R “ADD ERR CODE TO LOC ERR CODE LOG 
4114 027450 063702 002240 ADD UUTOFF ,R2 “FIND LOC ERR REG THIS UNIT 

4115 027454 00521 INC (R2) “INCREMENT UNIT ERR REG 

4116 027456 013703 002276 1H243: MOV ERRTY_R3 “GET ERR TYP 

4117 027462 042708 171776 BIC #171774,R3 “CLEAR ALL ERRS BUT RD, WI, CRC, SEEK 
4118 0 7466 00570 TST R3 "IF ONE OF THESE ERRORS 

4119 027470 001412 BEO 11243 : THEN 

4120 027672 015370¢ 002254 MOV TRACK ,R2 “GET TRACK ADR 

4121 027476 00630 ASL R “DOUBLE TRACK ADR FOR WORD ADDRESSING 
4122 027500 006302 ASL R “ADS TRK 

412% 027502 300 ASL R : FOR ADR. P 
4126 027506 062702 610070 ADD #TIKKX,R2 ‘ADD TRACK LOG LOCATION 

4125 027510 063702 002240 ADD UUTOFF ,R2 “FIND LOC ERR REG THIS UNIT 

4126 027514 005212 INC (R2) “INCREMENT UNIT ERR REG 
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4127 027516 005737 027610 11243: TST ERRSAV :1F ERR SAVE HAS 

4128 8 75 § 001 3 BNE 11243 “NO ERROR SET, THEN 

4129 027524 005237 027612 INC ERSVCT ‘ INCREMENT ERROR SAVE COUNTER 

4130 0 7530 022737 000004 027612 11243: CMP #4 ERSVCT "IF ERROR SAVE COUNTER 

4131 027 101017 BHI E1243 “NOT=4, THEN 

41 g 027540 012701 002306 MOV @SEEKRT,R1 “SET BEGIN ADDRESS OF RETRY COUNTERS 

4133 0 7344 oi 702 000011 MOV #11,R2 °SET # OF RETRY COUNTERS 

4134 027 29 021 BK243: CLR (R1)+ “CLEAR RETRY COUNTER 

4135 02755 005 g DEC Re “DECREMENT RETRY COUNTER # 

4136 027554 570 UK243: TST R *DO UNTIL 

4137 0 7356 001374 BNE BK243 “ALL COUNTERS CLEARED 

4138 027560 005937 027612 CLR ERSVCT “CLEAR ERROR SAVE COUNTER 

4139 027564 005037 002304 CLR RETRY “CLEAR RETRY COUNTER 

4140 027570 000402 BR E1243 -BR TO END ‘1° 

4141 027572 005037 027612 L1243: CLR ERSVCT “CLEAR ERROR SAVE COUNT 

4148 027576 013737 002276 027610 £1243: MOV ERRTY,ERRSAV :SAVE ERROR TYPE FOR NEXT ERROR CHECK 

4143 027604 000207 END243: RTS PC RETURN 

4145 627606 000000 ETSAV: 0 sERR TYPE SAVE 

4146 027610 000000 ERRSAV: 0 [ERR TYPE SAVE REG 

4147 027612 000000 ERSVCT: 0 “ERROR SAVE COUNTER-COUNTS # OF NO ERROR PASSES 

4148 027614 000000 STERRG: 0 sSTAT ERR REG 

4149 027616 000000 STCNTR: 0 =STAT COUNTER 

4150 027620 000000 CLASWD: 0 *ERROR CLASSIFICATION WORD-FROM TABLE 

4151 027622 000000 OGOFF: 0 “ERROR LOG OFFSET FROM #CKSML 

413¢ 027624 000000 RTOFF: O “RETRY COUNTER OFFSET FROM # SEEKRT 

4153 027626 000000 TSTCK: 0 *TEST WORD-USED TO CHECK TEST DONE 

ret sMOD 2.4.3 ap Oe er at END MODULE Sese Men zZanonmnsaunm Sew esos ere oe en nemtemn me wece 

4156 passe. ERROR TYPE CLASSIFICATION & OFFSETS TABLE eececeseooooooonooooocooeoo 

4157 sTYPE/LOG-OFF/RI-OFF/CLASS /BIT# 

4159 027630 005001 ETTAB: .WORD 005001 <SFT /SEEK /SEEK /SK-RTMSK/ 0 

4160 027632 006005 .WORD 006005 *SFT /CRC /CRC /CRCE 4,4 

4161 027634 100407 .WORD 100407 “HRD /CKSML - /HD ,.% 

4162 027636 012106 WORD 012106 *SFT /DATA /DATA /DT-RTMSK/ 3 

416 027640 154400 .WORD 1544 “HRD / = woe: es s & 

4164 027642 113227 . WORD 1132 7 “HRD /DDUNX /DD /HD 4 5 

4165 027644 113227 “WORD 113227 “HRD /DDMIS /0D /HD / 6 

4166 027646 154400 .WORD 154400 :HRD / = ce a ee 

4167 027650 154400 .WORD 154400 “HRD /UNK - ‘a 

4168 027652 101407 .WORD 101407 *HRD /FIL-EMP/ - /HD 1 9 

4169 0 7654 010164 . WORD 010164 *SFT /RD /RD = /RD-RIMSK/ 10 

4170 027656 011202 “WORD 0112 g “SFT /WRT /WT /WT-RTMSK/ i1 

4171 027660 10340 . WORD 10340 ‘HRD /INTR-ND/ = /HD / 12 

417@ 027662 104407 “WORD 104407 “HRD /D-NINTR/ = /HD 713 

4173 027664 102407 . WORD 192407 “HRD /ER“NSET/ = /HD / 14 

41% 027666 154407 WORD 154407 “HRD /ERR BIT/ - /HD , 5 

4176 : ii TTT i mmeCLASSIFICATION (SEEK=1/CRC=5/DATA=6/WRITE=2/READ=4) 

4177 : iid i i cmmeeRETRY COUNTER OFFSET 

4178 : 1 § i ceoee <LOG REGISTER OFFSET-(FROM CKSML ADDRESS) 

41 : i socesees <TYPE (SOF T=0/HARD=1) 
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4183 .SBTTL MOD 2.4.3.1 = UPDATE HARD ERROR STATISTICS 

4185 

41 027670 000639 UDHDST: NOP : 

4187 0 2672 032737 000007 027620 1A2431: BIT #7 CLASUD “IF ERROR R CLASS WORD- 

4188 027 00 601007 BNE 42431 * CLASS=HD 

4189 027702 01 Ot 027622 MOV LOGOFF. R1 GET SRROR ‘66. OF SET 

4190 0 7706 06 701 007354 ADD #CKSML RI “ERR LOG ADR=ERR LOG OFF + CKSML ADR 

4191 02771 ; 701 002240 ADD UUTOFF. Ri *UUT ERR LOG ADR=UUT OFFSET + ERR LOG ADR 

4198 027716 005211 INC (R1) “ INCREMENT THE ERROR LOG 

4193 027720 000207 X2431: RTS C * RETURN 

4194 :MOD © RA aececece END MODULE SS S2SS SS SSSSSSSE SESSSSOSSSESOOOOSOOOCESECEEER 

4195 

4196 

4197 

4198 -SBTTL MOD 2.4.3.2 - UPDATE CRC STATISTICS 

4200 

4201 027722 000240 upces NOP F 

4202 027724 032737 020000 027626 1A2432: BIT #81113, TSTCK *IF TEST=DATA CHECK 

4203 027732 001425 BEQ 4 “BIT SET, THEN 

4204 027734 032737 000010 002276 182432: BIT TOS.ERRTY :IF ERR TYPE =DATA ERR 

4205 027742 001007 BNE LB24 “NOT SET, 

4206 027744 O17 7 000020 027622 MOV LOGOFF [SET LOG OF FSET= CRC BAD LOG 

4207 0 7732 012737 000006 027624 MOV #6. RIOFF :SET RETRY OFFSET=CRC ERR 

4208 0277 000420 BR 1024 “BR TO ° 

4209 027762 0127 7 50 027622 LB2432: MOV LOGOFF *SET DATA LOG OFFSET 

4210 027770 00 037 tray CLR SK [CLEAR RETRY MASK 

4211 027774 012737 12 027624 MO 12, RTOFF “SET DUMMY DATA RETRY COUNTER OFFSET 

4 12 $$0002 004737 030344 CALL FERLG *CALL SOFT ERROR LOGGER 

gt 030006 012737 000010 027622 1A2432: MOV 10, LOGOFF “SET LOG OFFSET=CRC ERR LOG 

4214 0 14 012737 027626 MOV #6, RIOFF *SET RETRY OFFSET=CRC ERR 

4215 2 032737 010000 027626 1€2432: BIT welt ,TSTCK «2 IF READ AFTER WRITE (RAW) 

4216 0 001407 BEQ LC 432° “BIT SET, THEN 

4217 030032 012737 000020 030474 MOV @BITOG,RIMASK :SET RETRY MASK 

4218 030040 052737 000002 030474 BIS weit RIMASK :SET RETRY MASK: =URITE 

4219 0 6 000406 BR £C2432 “BR TO END °C° 

4220 030050 012737 000020 030474 LC2432: MOV @BITOG,RTMASK SET RETRY MASK=CRC 

4221 030056 052737 000004 030474 BIS WBITO2,RTMASK ;SET RETRY MASK=READ 

4222 030064 004737 030344 EC2432: CALL SFERLG * CALL SOFT ERROR LOGGER 

4223 030070 000207 RETURN > RETURN 

4224 :MOD 2.4. 2 eececse END MODULE eeeeeseseeeeeeseesesoeeeoesesoeoooessoeseoescese 
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4 Z .SBTTL MOD 2.4.3.3 = UPDATE SOFT ERROR STATISTICS 

4229 - 

4 7 13702 027620 UDSFST: MOV CLASWD,R2 sPUT CLASSIFICATION WORD IN R1 

4231 76 00620 ASR R : IFT WORD RIGHT 

4 ; 1 06 9 ASR R : TIMES TO GET 

4 1 0 ASR R : RETRY COUNTER OFFSET (LAST 6 BITS) 
4 1 4 177790 BIC #177700,R2 “CLEAR TOP 10 BITS 

4235 030110 01 g 0376 MOV R2,RTOFF ‘SET RETRY COUNTER OFFSET 

4 114 01 7880 1A2433: MOV CLASUD R2 “GET CLASSIFICATION WORD 

4 1 0 37 177 BIC #177776,R2 “CLEAR ALL BIT ERROR CLASSIFICATION 

4 1 ; 7 000006 CMP #6 Re ‘IF ERROR 

4239 0301 ° 0 10 BNE LAd433 “CLASS=DATA, THEN 

4240 0301 32737 010000 027626 182433: BIT #BIT12,TSTCK :IF TEST HA 

4241 03014 001404 BEQ LB243 “READ AFTER WRITE (RAW) BIT SE’, THEN 

4 4g 030142 012737 000012 030474 MOV #12, RTMASK *SET DATA & WRITE RETR 

426 150 000403 BR EB2433 “BR TO IF *B° 

42h 158 012737 000014 030474 182433: MOV #14, RTMASK SET DATA & READ RETRY 

4245 030160 012737 000010 027624 £B2433: MOV #10. RTOFF *SET DATA RT COUNTER OFFSET 

4246 0 166 012737 000050 027622 MOV #5 LOGOFF SET BATA LOG OFFSET 

4247 030174 000405 BR é *BR TO END 

4 48 030176 01 2 7? 030474 LA2433: MOV Re RTMASK sELSE=PUT CLASS INTO RETRY MA 

426 30202 162737 000050 027622 SUB #50, LOGOFF LOG OFFSET SO THAT SEK? 1S LOG BEGIN 
4250 030210 004737 030344 EA2433: CALL SFERLG Ch ‘i SOFT ERROR LOGGER 

4251 030214 000207 X2433: RTS PC RETURN 

4 52 ;MOD 2.4 “ % 3 eeceoee END MODULE SSSSSSSSSSSSSESSSESESSSSSSSSSESOEOSESESESee2eeEeo 


HARDWARE TESTS MACRO M1200 15-DEC-82 
OR STATIS 


MOD 2.4.5.5 = UPDATE SOFT ERR 
sts 
4 
4 
4 38 8 0 18 43701 002234 
4260 et 1 
d 3 03731 17777 034 
4 : 4 ‘ 737 000003 330363 
es 
4 46 4 
426 50 ogee! 000002 030342 
4 re 56 001404 
4 ° 60 022737 000006 030542 
4270 $8 4068 
4271 0 pies 2 000020 
4 i 74 000241 
4275 030276 06010 
57s B504R) 963369 007314 
4276 030 005062 007314 
4277 030312 peers 44s 
: an . 238 ft 4: 007314 
4280 0 5 4 008062 007314 
4281 0 $80 Abery 000002 
iste 030335 oup0ss 00781 
ie 
030342 000000 


ss 
MN 
te 


T 


S 


UPSECT: 
1A2434: 


182434: 
102434: 


EAda3e: 
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MOD 2.4.3.4 = UPDATE SECTOR WRITTEN/READ COUNTERS 


CLR 
: RETURN 


R1 
#177770, FUNTY 
#3, FUNTY 
i 5434 

EA2434 
#2 EUNTY 
LB2434 
#6, FUNTY 
KUPSCI 
#20,R2 
R1,R2 
READSC(R2) 
READSC(R2) 
#2,R 
READSC(R2) 
XUP 
READSC(R2) 


#e, 
READSC(R2) 


ree 


| 

2 WORD ADDRES 
BUT FUNCTION 
N_ TYPE 


a” i De Pl a ead 
$—- OmnDnronyp 
=s— 
=" 
m 
= 


S258 






TOR COUNTER 
THEN 


P>Ww2w 
Deen 
— 


OUNTER 
MENT DOUBLE PRECISION WORD 
ISION WORD 


Y BIT SET, THE 
;CLEAR DOUBLE PRECISION CTR 


;CLEAR DOUBLE PRECISION CIR 
;RETURN 


sSTATISTICS FUNCTION CK 


SEQ 90 
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MOD 2.4.U.1 = SOFT ERROR LOGGER 
4 -SBTTL = MOD 2.4.U.1 = SOFT ERROR LOGGER 
4 ’ 
4 4 013701 027 632 SFERLG: MOV LOGOFF ,R1 :GET ERR LOG OFFSET 
4 20 13702 027 MOV RTOFF .R2 “GET RETRY COUNTER OFFSET 
4 4 ¢ 7 \ ADD WSEEKRT R2 “CAL. RETRY COUNTER ADR 
4 7 0 doe 002204 1A24U1: BIT we] 02, SUREG “IF (SFT SW REG) RETRY ON ERROR, LOG SOFT OR HD ERROR 
4 019 4 BNE 1B24U SSET OR 
4 2737 000004 002264 BIT #EVL,FLGDRS “DRS "'EVL’’ FLAG 
Ps 7 aie BEQ L62401 “SET, THEN 
4 128 000012 1824U1: CMP (R2),#12 SIF RETRY C COUNTER 
4 3907 BHIS LB26U1 “EQUALS < 10 ERRORS, THEN 
4 06 005212 INC (Ro) > INCREMENT RETRY COUNTER 
4 10 053737 030474 002304 BIS RTMASK,RET “SET RT FLAGS PER RT MASK 
4 16 005037 002300 CLR HARDER ; CLEAR HARD ERROR 
4 2 13 BR EB24U1 :BR TO END 'B’ 
4 4 701 007514 LB24U1: ADD #HSEK,R1 “HD ERR LOG ADR=HARD SEEK ADR+LOG OFFSET 
4 701 002240 ADD UUTOFF ,R1 *UUT ERR L0G ADR =UUT OFFSET+LOG ADR 
4 rah INC (R1) s INCREMENT UUT HARD ERROR LOG 
4 36 043737 030474 002304 BIC RTMASK,RETRY  :CLEAR RETRY FALGS USING Ri MASK 
4 44 005 iF CLR (R2) “CLEAR RETRY COUNTER 
4 46 005237 00230 INC HARDER “SET HARD FLAG 
Ps 452 013701 0276 EB24U1: MOV LOGOFF ,R1 “GET ERR LOG OFFSET 
4 56 062701 007424 ADD #SEK,RI [ERR LOG ADR=SEK LOG ADR+LOG OFFSET 
4 0462 063701 002240 ADD UUTOFF ,R1 *UUT ERR LOG ADR=UUT OFFSET+LOG ADR 
4 0466 005211 INC (R1) ; INCREMENT UUT ERROR LOG 
4 70 000240 X24U1: NOP 
43 30472 000207 RTS PC “RETURN 
4318 030474 000000 RTMASK: 0 sRETRY MASK 
43 sMOD 2.4.U1 ----- END MODULE ono nnnn ene w nnn mew ewww o en owen nn cen eneeee---- 
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NOD 2-5 = OUTPUT ERROR TYPE 









P oSBTTL WED 6.2 = CUIPUT ERROR I VPE cacccesecccce ec aceaeaomttenidabiedi 
4 STERTP: MOV ERRTY,ERRREG | ;SET ERROR TYPE FOR PRINT OUT 
4 702 013737 002276 002604 OTERTP: MOV — ERRTY, ; ange ier 

4 af 1370) 008876 -— CLEAR ERROR # COUNT 

d 716 240 i He) Oe SIF BIT #1 

; 754 1405 shes —~BEO EL Ags SE AVE ERROR # COUNT 

4 ING ._— {DOUBLE ERR _# COUNT FOR ADDRESSING 
d ; 704 031616 ADD = #ET1,R4 :SET ADDR FOR ERR MSG PRINT 

" LF BR THAZS "BR TO THEN 'A 

4 ? ; ELA25: CLC :CLEAR CARRY BIT 

: PD b0esot ASR RY SSHIFT ERR TYPE RIGHT 

4 Pee Soest! INC = R2 SINCREMENT ERROR # COUNT 

oaae Bentee 83805 000017 (MP #17, R2 :DC UNTIL ERROR # C 

£896 Ossie Oot ss AS se tg ene 

4397 030754 000507 BR 3 CLEAR R3 

4398 030756 00500 THAZS: = CLR :GET ERRA 

£399 030760 01 205 1656 ADD. EF CLAS RS CAL. ERR# CLASSIFICATION ADR 
ti) Stores $ais08 MOVE (RS), R SGET ERR CLASSIFICATION 

t2o2 030770 032703 000001 1fB25: BIT #1,R s1F SOFT ERR 

440¢ ONeLy BEQ =F C2 CLASS, THEN 

Prt 6 5737 002300 TST HARDER SIF HARD 

2206 031004 010237 002376 MOV ——R2 ERRNBR :SET ERR 

dao? O81010 011437 009400 Mov (RAD ERRMSG =; SET_ERR MSG 

tdos O8101% 012737 000003 002374 MOV § #SOFT,ERRTYP © ;SET ERRTYP=SOFT 

4409 031022 004737 002854 CALL ERROR “aap ag 

4410 0310 ? , IF HARD ERR 

tet) 0810 052705 000002 1Fc25: Bit We RS ph 

2218 0310 0527 : 40 ELB25: BIS #40 ,R2 4: Peel 

4414 031 102 a0¢8 RRMSG =; SET_ERR_MSG 

tei O81088 012737 995409 002374 mov eaabeeRa te soon. Geet ctaee EM 

221? O31 307 2 000004 002264 IFF25: BIT  #EVL FLGDRS iE EVE FL 

rrht BS} 09 337 0902302 inc HDERCT INCREMENT HARD ERROR CTR 

2290 081074 033787 002302 002216 IFEZS: CHP — WDERCT.DFTL PT a ee 
4421 031102 101005 D TRESET ERRTYP=DEVICE FATAL 
STE G08 aug worm, Able ea, 

2254 O81116 00737 000356 EIF25: CALL ERROR :CALL ERROR 

rr to Lt LR 4 ot Ea NC HARDER {SET HARD ERROR FLAG 
2256 031196 013737 002276 002604 E1C25: MOV  ERRTY.ERRREG | SET ERR TYPE FOR PRINT OUT 
1259 O811%¢ OC 406 CALL RTE :CALL U.P.ERR = PRINT ER 

1258 081140 013737 000276 021452 MOV ERRTY,ERTSAV = SAVE ERR TYP FOR DATA CK 

4428 031140 013737 00 CLR ss ERRTY CLEAR DEVICE ERR 

rR TM ae SS TI4 CALL © KERPR SCALL MOD U.PRT.B - PRINT ERR CODE 
4430 03115 eae ste) 1fD25: TST HARDER ;IF NOT A 

4431 051156 005 eo RE sy SHARDER, THEN 

re ee | CALL =~ PTRTY SCALL 2.5.1 = PRINT RETRY @# 
t284 031170 005087 002800 ELD25: CLR HARDER aa Cane TLRs 

ad 5 0 1174 000207 ETACS: RTS PO cee ee cnnet SS 8 2S SS SSS SSS SSBSVSSSSSSSESHESOSSESESESESBE EOS 
re) : 


SEQ 94 
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MOD 2.5 = OUTPUT ERROR TYPE 
4496 
4495 .SBTTL MOD 2.5.1 = PRINT RETRY 
ree aa aa a a ater 
449 
4498 8 1676 900629 PTRTY: NOP : 
4499 031 00 005737 002304 IFA251: TST RETRY ° IF RETRY 
4500 031704 0013 2 BEQ END251 “NOT=0, THEN 
4501 031706 032 000001 002304 1f8251: BIT #1 RETRY “IF RETRY 
4308 031714 001405 BEQ 166251 71S SEEK, THEN 
4503 031716 013702 00 306 MOV SEEKRT,R2 “SET SEEK RT COUNT 
4304 ' 17 12701 032110 MOV BMSKRT.R1 “SET SEEK RT MSG 
4505 0317 463 BR 18231 “BR TO END IF ‘B' 
4506 0317 737 000002 002304 1FC251: BIT 7 RETRY “IF RETRY 
4507 0317 01487 BEQ pee 1 "1S WRT, THEN 
4508 031740 032737 000030 002304 1FfD251: BIT #30, RETRY SIF RETRY 
4509 031746 001416 BEQ EL D251 "1S DATA OR CRC , THEN 
4510 0 1750 032737 000010 002304 1FfG251: BIT & RETRY SIF RETRY 
4511 031756 001405 BEQ ELG25 °1$ DATA, THEN 
4i¢ 031760 013702 002316 MOV DATART.R2 °SET DATA RT COUNT 
4513 0 1764 012701 032134 MOV WTRT,RI “SET DATA WRT MSG 
4514 031770 bt BR £18251 *BR TO END IF °B’ 
4515 0 1772 013702 002314 ELG251: MOV CRCERT.R2 “SET CRC RETRY COUNT 
4516 1776 012701 0322706 MOV SMCUTRT,RI “SET CRC WRT MSG 
4517 03200 7 BR £16251 “BR TO END if °B° 
4518 0 004 Oe 702 002326 ELD251: MOV WRTRT.R2 “SET WRT RT COUNT 
4519 032010 012701 032166 MOV TRT RI “SET WRT RT MSG 
4520 032014 32 BR £18251 “BR TO END IF °B° 
4521 032016 0 2737 000004 002304 IFE251: BIT #4, RETRY IF RETRY 
45 j 032024 001430 BEO ND251 *1S READ, THEN 
4523 032026 032737 000030 002304 IFF251: BIT #30 RETRY ‘IF RETRY 
4526 0 001416 BEOQ LF25 *1S DATA OR CRC, THEN 
4525 032036 032737 000010 002304 IFfH251: BIT #10, RETRY SIF RETRY 
4526 03 4 001405 BEOQ ELH251 71S DATA, T 
4527 032046 013702 002316 MOV DATART.R2 “SET DATA RT COUNT 
4528 03 $2 012701 032213 MOV #MDRD t, “SET DATA READ RT MSG 
4529 56 000411 BR E 18251 "BR TO E *B' 
4530 0 013702 002314 ELH251: MOV CRCERT.R2 >SET CRC RETRY COUNT 
4531 032 012701 032321 MOV #MCRORT, “SET CRC READ MSG 
4532 032070 04 BR EI “BR TO END IF °B" 
453 03207¢ 013702 002324 ELF251: MOV READRT.R2 "SET READ RT COUNT 
4534 032076 012701 032244 MOV #MRORT.R1 “SET READ RT MSG 
4535 03 102 004737 004536 £18251: CALL PRTBIS “PRINT RETRY # & TYPE 
45 032106 000207 END251: RTS PC “RETURN 
4538 032110 045 101 040 MSKRT: .ASCIZ /%A SEEK %D2EN/ 
4539 032134 045 101 040 MDWIRT: .ASCIZ /%A DATA RETRY#LDZIN/ 
4540 0321 045 101 040 MWITRT: .ASCIZ /ZA WRITE #UD22N/ 
4541 05 4 045 101 040 MDRDRT: .ASCIZ /%A DATA ETRYAZDZIN/ 
4542 032244 045 101 040 MRDRT: .ASCIZ /%A READ IN/ 
454 032270 045 101 040 MCWIRT: .ASCIZ /ZA CRC W ETRYMZD2%N/ 
454% 032321 045 101 040 MCRDRT: -ASCIZ /ZA CRC READ RETRY@2ZD22N/ 
4546 :MOD 2.5.1 eeeese END MODULE et et tt tl 
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D 2.6 - SET DRIVES DONE 


4549 ~SBTTL MOD 2.6 = SET DRIVES DONE 


4390 | memenmmenereneeewncecewnecsceeccsceeecccccccccccecccccscoccesceseensces 
$2 ¢ 0 2¢ 900830 1 STDVDN: NOP : 

4 0 4 00 021442 IFA26: TST DVDNCK s1f DRV DONE CK 

4554 0 rt 001430 BE END26 :1S SET, THEN 

4555 0 pooes NOP ; 

$226 ° ; 021442 CLR DVONCK ; CLEAR DRY pone CK 

$22 0 032737 000001 002254 IFB26: BIT #1 yut : iF DRV#1 DONE 

4558 76 001404 BEQ i, 6 : THEN 

4559 8 4 052737 000002 021432 BIS # oad :SET DRV#1 DONE FLAG 

4 4 403 BR :BR TO END 

4561 052410 052737 000001 021432 ELB26: BIS i , a :SET DRV#0 DON 

rer 4 | 416 005001 EIB26: CLR R1 sCLEAR TEMP DRV DONE REG 
456 420 013703 002234 MOV UUT,R3 :GET UNIT UNDER TEST 

4564 032424 000261 SEC ;SET CARRY tM 

4565 032426 006101 BDA26: ROL R1 ;MOVE DRV BIT 

4566 0524 005303 DEC R :DECRERENT rt UNDER rest 
4567 0324 005703 TST 3:00 UNT IL UNIT UNDER TST 
4568 032434 002374 DUA26: BGE BDA26 :EQuU 

4569 032436 050137 021444 BIS R1,DRVDN : THEN SET THIS DRV DONE 
4570 032442 000207 END26: RTS sRETURN 

4571 :MOD 2. 6 enae END MODULE SOS SSS SSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSGSZSESSESESESES 
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MOD 3.0 = OUTPUT EXERCISE COMPLETE 

4574 -SBTTL MOD 3.0 - OUTPUT EXERCISE COMPLETE 

4576 032444 999240 OTEXCM: NOP 

457 446 37 002232 002230 CMP SUT, SDD sIF ALL SCHEDULED 

4578 032454 001003 BNE ND “DRIVE DONE 

4579 032456 012737 000001 014020 MOV #1, EXCMP “SET EXERCISE COMPLETE 

4580 032464 000207 END30: RTS * RETURN 

4581 ;MOD 3.0 tee ne ee oe ee END MODULE Seeeee ee eee eeeee SSS SOSSESESESESESESESEBEOEOOOS 
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t2ke SOTTL _MOD 6.0 = OUTPUT SYSTEM ERROR ee cnccccwececcencecccceececes 
45 5 ® @OOeeeeseeeeeeseeeeeeeeeseco . : SvErEn — 
22Bs Bas28S Bias) ooee7s OTSYER — — soe aR CARRY BIT 
¢8 474 006201 ASR sR “SHIFT 
2286 208 Oe 1 AER R1 ; FUNCTION ’ 
i) Sate Seah an osm ons col 
2898 O85806 900240 BDAGO: NOP Jeroen 
ae tae foray owes TBS ArT 
teoe 18 Bt0s02 MOV RO, RG “SAVE ERROR # COUNT 
teoo 035828 bons ASL RG “DOUBLE ERR # COUNT FOR ADDRESSING 
1898 935552 069704 033416 ADD ASE AR :SET ADDR FOR ERR MSG PRINT 
2208 935536 b630% a “ee “SHIFT ERR TYPE RIGHT 
1000 B5ea5  os502 INC R2 “INCREMENT ERROR # COUNT 
1e02 035834 093705 000017 (MP s#17R2 “DO UNTIL ERR # COUNT 
1008 Os5ez6 64565 BNE —«- BDAO SEQUALS 15, THEN. 
1002 basee5 000452 E1AGO :BR TO ENDIF ‘A 
0 A alm RR am ct 
MOVB : 
1808 : 23¢ 032703 000002 17840: BIT 2.88 :1F DEVICE FATAL 
4609 032560 001415 F640 : a 
cert 3 abe oeos5s 000100 BIS #100: SET ERR CLASS=S¥S 
tole Basar ott Fay 905200 mov (R4),ERRMSG §§ :SET ERR MSG 
tei 032600 012737 000001 002374 nOV aove f ERRTYP :SET DEVICE FATAL ERROR 
ois Bese BH es te 
i618 O33615 932705 00004 or a TE SYSTEM FATAL 
te :6 Re 
au a 
R : 
ce31 83 eae Oi 92387 fi 206 MOV (RL) ,ERRMSG ;SET ERR MSG 
1058 ba5ec0 012737 900000 002374 OV Sv T LERRIYP SET ERR TYP=SYS FATAL 
4626 033665 004737 002354 CALL ; aha 
toe? Oasces Ol itee Oasene 002606 ELCCO: Fey COREA Te ee ULPTERR ~ PRINT. ERR INFO . 
108 Baseee bncr8? ns034 CALL —-XERPRT “CALL MOD U.PRT.B - PRINT ERROR CO 
: Pp ; 
1088 OsSers oososs 002276 wun aaa. “CLEAR SYS ERRORS 
4630 032676 000207 END4O: RTS PC 
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SEQ 100 
HARDWARE TESTS MACRO M1200 eng te 13:50 PAGE 143 
* MOD INTR.1 = INTERRUPT HANDLER @ 


4685 -SBTTL = MOD INTR. 1 = INTERRUPT HANDLER #0 


46 
13737 0 033542 {NTHO: MOV UOADR,INCSAD _;SET UNIT #0 ADDRESS 
og ; a33cr6 004737 9998%0 ’ CALL § SVUTRG ; CAL LL MCD U.INTR.U = SAVE UNIT REG 
4690 :MOD U.INTR.1 ----- END MODULE onennnw www ween wenn nnn ene n ene neeeneneeen-- 
“89 -SBTTL = MOD INTR.2 = INTERRUPT HANDLER #1) a ee 
4694 013737 002222 033542 {INTHI: MOV UIADR,INCSAD  ;SET UNIT #1 ADDRESS 
4895 033510 006737 399896 CALL § SVUTRG :CA LL MOD U.INTR.U = SAVE UNIT REG 
4697 :MOD U.INTR.2 ----- END MODULE ----eeonnnnnnnn nnn nnn nnnnn nnn nnennne--n- 
4699 -SBTTL MOD U.INTR.U - SAVE UNIT REG: 22 
RG: M #1, ONE AG :SET DONE FLAG 
S70) Oaeste OiG7a7 ppgeg) 25226 SwuIAG: Boy =a ba SAVE GUT ADDRESS 
470 §330%6 012137 002246 MOV (R1)¢ Dee RuUT *SAVE WUT CSR 
4704 033554 011137 002250 MOV (R1) ,ESRUUT “SAVE UUT ESR 
—e eee oe. SR _ Se 
4707 42 000000 INCSAD : 0 ; INTERRUPTING UNIT CSR ADDRESS 
6708 — § MOD U.1.U ----= END MODULE ---------eoen neon enn n nnn nen nnn n == ------- 
4710 “Sart - READ gtnon cone TER ee 
¥ : .BYT sERROR CODE uUT 
2718 o83ses «900 Ure BME 0 {GORD COUNT UUT 
4714 Ss aece 000 CTKO: .BYTE 0 *CUR TRK DRV#O 
4715 033547 000 C1Ki:  .BYTE 0 *CUR TRK DRV#1 
c7i9 Suuaet 38 el cere | Se 
4 ‘ae 
4718 03355 000 SFTSTS: .BYTE =MICR cODE SOFT STATUS 
4719 333088 000 BIRK:  .BYTE 5 :BAD TRK ADR 
19754 saat: See a ee 
o7s6 DA RE 5 ES =, ELMO SOD AE TEES A 
a SEN HRKTBL: .REPT 154. STRACK TABLE DL SO oa 
6798 lt A 
73} 00400 DATPAT: .REPT 256. :DATA PATTERN 
c734 84406 000400 pateuF: :RePr f5¢. DAA UFR, 
4738 035006 : ENDTST 


SEQ 101 
TER CODING MACRO M1200 15=DEC-82 13:50 PAGE 145 , 
DATA BUFFERS 
4741 .TITLE PARAMETER CODING 
4738 .SBTTL HARDWARE PARAMETER CODING SECTION 
4790 ;+ 
4791 : THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
479¢ : THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
479 * MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
4794 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
4795 * MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
47 ; WITH THE OPERATOR. 
479 ;- 
4798 
4799 035010 BGNHRD 
rt tit 03501 GPRMA MSG1,0,0,0,177777,YES 
4802 0350 PRMA MSG2.2.0.0 177777.,YES 
4803 0350 GPRMD MSG3.4.0.177777,0.,1«,YES 
4804 035044 GPRMD SG4,6,0,177777,0.,1.,YES 
4 035056 EXIT HRD 
4813 035060 ENDHRD 
4815 035060 122 130 040 MSGI: .ASCIZ /RX BUS ADR/ 
4816 03507 126 105 103 MSG2: .ASCIZ /VECTOR pfdR/ 
4817 035106 104 122 111 MSG3: .ASCIZ /DRIVE # / 
4818 035121 105 130 120 MSG4:  .ASCIZ /EXP WRD-CR/ 


481 9 e SOSSSSOHMSHSSVTSATOSCSOHN SO SSS SESSAN Ce senna woee nese weeuneowrreran eres eeooeew eon eee 
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SEQ 102 

PARAMETER CODING CRO M1200 15=DEC-82 13:50 PAGE 147 
SOFTWARE PARAMETER CODING SECTION 

$8 : .SBTTL SOFTWARE PARAMETER CODING SECTION 

4831 3+ 

48 : : THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

48 > THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. TH 

4834 * MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

4835 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 

4 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNI CATIONS 

4 7 ; WITH THE OPERATOR. 

4835 

e800 035134 BGNSFT 

cBe 0 5136 GPRML MSG6,2,1,YES 

4844 0 a106 MSG7, 

4845 0 5154 1$: W368 

4846 5166 ities 

4847 035200 

ahs Se meres 

2890 0 5 $3 mst *1 

obs) Suet a 

4 3g 035250 MSG18,1 S 

4854 : 5256 619.1 46 

ie Su mest 18h 5 

e837 035 4$: NG 3°3°500- VES 

is Sa TRO RR Ea 

4861 03388 S$: " §°2,400,ES <8 

cass 035844 ee 

4865 035370 6$: 6,1 Derr eet 

4866 035376 

4867 

4874 

4875 EVEN 

4877 935400 ENDSFT 
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SEQ 104 
PARAMETER CODING MACRO M1200 15-DEC-82 13:50 PAGE 151 
- PATCH AREA 
49 5 .SBTTL = PATCH AREA 
4937 040246 000000 PATCH: 0 :PATCH AREA 
49 040450 .=. +200 
49 9 aa teat eater 
4940 
4947 
4948 
4949 040450 LASTAD 
040454 LSLAST:: 
4950 040454 ENDMOD 
4939 40454 BGNSETUP 2 
499 54 BGNPTAB 
4954 69 177170 177170 
4955 62 000264 : 64 
4956 64 009000 
4957 $6 000000 0 
4958 04047 ENDPTAB 
4959 9470 BGNPTAB 
4960 040474 177170 177170 
4961 040476 000264 264 
4962 04 200 900001 1 
496 20 00000 0 
4964 5 04 ENDPTAB 
4965 040504 ENDSETUP 
4966 000001 END 
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